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ABSTRACT 


An analytical technique based on the time-dependent flow equations 
has been developed to predict the inviscid transonic flow field in axi- 
symmetric propulsion nozzles. The analysis includes the treatment of 
axisymmetric nonuniform nozzle inlet profiles of total pressure, total 
temperature, specific heat, and molecular weight. The analysis is 
also capable of considering convergent-divergent, convergent, and 
shrouded or unshrouded plug nozzle geometries. A computer listing 
and three sample calculations are presented to illustrate some of the 
capabilities of the program. 
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NOMENCLATURE 
A Cross-sectional area 
a,b,c Constants in expression for specific heat 
Cp Discharge coefficient 
Cr Thrust coefficient 
Cp Specific heat at constant pressure 
Cy Specific heat at constant volume 
D Diameter 
E Internal energy per unit volume 
e Energy per unit volume 
2 Time station index 
M Mach number or downstream boundary axial station 
m Axial station index 
n Radial station index 
P Static pressure 
Po Total pressure 
R Gas constant 
Re Normalized radius of wall curvature (radius of 
curvature/throat radius) 
r Radial distance from nozzle centerline 
Sj Radial coordinate of nozzle centerbody 
So Radial coordinate of nozzle wall 
T Static temperature 
To Total temperature 
t Time 
u Axial velocity component 
V Vector velocity 
Vv Radial velocity component 
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Variables 

Weight flow 

Tangential velocity 

Axial distance from nozzle inlet 
Transformed radial coordinate 
Small increment 

Flow angle 


Density 


One dimensional 
Gas 
Wall 


Ambient 


Sonic 


Differentiation with respect to x 
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SECTION | 
INTRODUCTION 


An analytical method for predicting the exhaust nozzle performance 
of airbreathing propulsion systems must consider a wide variety of flow 
conditions for both convergent-divergent and convergent conical nozzle 
geometries. There are several analytical analyses available (i.e., 
Refs. 1, 2, and 3) which can be used to evaluate the performance of 
some turbojet nozzle flow fields. Unfortunately, there are inherent 
limitations in the analytical approaches generally available to systems 
groups which preclude their use in the quantitative evaluation of some 
of today's turbojet nozzle flows. One of the most restrictive features 
is that the flow is assumed to have uniform flow stagnation conditions 
and gas properties. The purpose of the present work was to develop a 
computer program to predict the inviscid subsonic-transonic flow field 
for actual operating conditions in axisymmetric turbine engine exhaust 
nozzles. 


The most logical candidate for solving the general nozzle flow field 
is the direct numerical integration of the main governing differential 
equations - continuity, axial and radial momentum, and energy. The 
equations are posed in time-dependent form and use a Lax- Wendroff 
(L-W) (Ref. 4) finite differencing scheme. The present computation 
method was adopted after the work presented in Ref. 5. The first ver- 
sion of the present computer program was reported in Ref. 6. Since 
publication of Ref. 6, a centerbody option has been added to the pro- 
gram, and the analysis has been extended to evaluate flow fields for 
both subsonic and supersonic nozzles. Also, several programming 
improvements have been made to reduce machine time requirements 
and to improve the accuracy near the boundaries. 


This report presents the method of analysis, a description of the 
numerical scheme, and a description of the program boundary condi- 
tions. Sample calculations for a supersonic convergent-divergent, 
plug, and unchoked convergent-divergent nozzle are presented. A 
complete computer listing is presented in Appendix VI. 
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SECTION Ii 
METHOD OF ANALYSIS 


The fluid is assumed to be inviscid, non-heat conducting, and ther- 


mally perfect. The flow field is assumed to be axisymmetric. 


general solution consists of solving the following relations: 
Continuity: 


Q a 
TS (pr) + ax (pur) + 2 (tpw) = 0 


Axial Momentum: 


po (us + pu 2 (ur) + pw ot ~ Zn 


Radial Momentum: 


0 0 Ov P 
pa, (vn) + pu = (vr) + pyrs- = pw? = -3 


Tangential Momentum: 


Q 
p > (wr) + pu 2 (ws) + pwr + pyw = 0 


Energy: 


2 (en + 2 lle + Phu + 2 le+P)vi = 0 


The 


(2. 1a) 


(2. 1b) 


(2. 1c) 


(2. 1d) 


(2. le) 


lwhile this expression is included in the derivation, the tangential ve- 


locity has not been added to the computer program. 
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Multiplying the continuity equation (2. 1a) by u, v, and w succes- 


sively and adding each expression successively with (2. 1b), (2. 1c), 


and (2. 1d), give 


Ce] Ce] 
ay (pur) + Ox 


(pur) 4 2 (pusn) =- o (Pr) 


(2. 2a) 
a Cl] a 
5r (pve) +e (puvr) + 7 (pv?) = = a (Pr) + P + pw? (2. 2b) 
r) 
2 (pws + © (paws) + 5, fevwn) = —pyw (2. 2c) 
Letting 
h = pr, d = pur, k = pvr, 
(2. 3a) 
z=pwr,fs=er, q = Pr 
and noting that 
d? 2 2 dk dz 
a pur, fe ee es 2h PBT 2 PUWE: 
(2. 3b) 
k 2? 2 kz 
T= evwr > 7 > = pw >, 7 PYw 
then Eqs. (2.1a), (2.1e), (2. 2a), (2. 2b), and (2. 2c) can be written as 
oh od ok 
ae Gn tae (2. 4a) 
odo @ ,d 0 dk 
at oe at? tale (2. 4b) 
dk Oak) Oe gy a (2. 4c) 
a+ Ox ho tor ht? 7” ie 
dz oO ,dz O ka kz 
Sa P-FP--E (2. 4d) 
df Q d 0 k 
a 5, Ki-az] + 5, f+ a7] = 0 (2. 4e) 
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These are the desired conservation forms for the main differential 
equations. Next, these conservation forms will be expressed as one 


single vector equation. 


2.1 VECTOR FORM OF CONSERVATION EQUATIONS 


Using a second order polynominal to represent the specific heat 


temperature relation gives 


c(T) = a + bT + cT? 


P 
and from the definition of E 


Ree 


the equation of state may be written as, 


2 
E = fedT « AC +) a 
Now noting from Eq. (2. 3) that 
v2 d2 + k? 4 2? 
h2 
Then Eq. (2.6) may be written as 


(2.5) 


(2. 6) 


(2. 7) 


(2. 8) 


(2. 9) 


This relation shows that q can be expressed in terms of only the vari- 


ables appearing in the first terms of Eq. (2. 4). 


Now consider four vectors (W, F, G, and H) defined by the vari- 
ables h, d, k, z, andf. Let these vectors be defined by the following 


components: 


Wi=-h,Wed,We-k, Waez, Wa af 


a? dk 
Fred, Fo,=7>-+q>Fz,;=—7 , Fa= 
dk Ke 
Go=k,G=>,Gz;s— +4, G5 
q 2 
H,=0,H,=0,H,=7+ 7, Hy=- 


i?) 
wn 
ct} 
-_ 
> 
+ 
ao 
|e 


(2. 10) 
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From these definitions and Eq. (2.9), it is seen that the vectors 
F, G, andHBH are a function of W. Therefore, the conservation forms 
of Eq. (2.4) may be expressed in terms of the above vectors as one 
single vector equation. 


C) 


_ @ Q 
a Wo+ 5, Fu") Se G(R) = HCW) (2.11) 


The system (2.11) is called the conservation-law form. 


2.2 FINITE DIFFERENCING SCHEME (LAX-WENDROFF) 


The components of the vectors in Eq. (2.11) from Eq. (2.10) can 
also be written as 


Wh, Wood, Week, Wo 2, Wee f 


W,2 WW Wow W 
2 2"3 2" 4 2 
F, = W F, = —— + Fr, = F, = F. = —(W. +4) 
J 2 Se ie G3 wy °° 4 ¥ > hs = es t4 
1 1 1 1 (2. 12) 
WoW w,2 WW W 
; 2"3 3 3° 4 Sipe 
G, = Ws ; Gy = t > G, = 7 + qs, G, = v , G. = wz (s+ q) 
l 1 l 1 
Ww? WoW 
4 q 374 
See ee Net Bae ar oye Hager ge » H; = 0 
Also from Eq. (2.9), 
2 3 Wo2 + W272 
(2 2 )-4 Seg Ee es 08) 
: Ne aR? * 3R3 w,? 2 2m 


Let Wh n represent the function W(t + £At, x + mAx, r+ nAr) 
where &, - can be integers or +1/2. F(Wws, n) will be abbreviated 
by fra. n° Finally, <w>4, ,n Will stand for the ‘difference approximation 
to the partial derivative, We, centered at £, m, n. 


All functions are assumed to be known at the grid points of the 
initial data surface, 2= 0. The function W can then be calculated at 
2= 1 by a forward difference scheme. Second- oo accuracy is 


achieved if the differences are centered at (t i x,r). Thus, the 


= a 
difference approximation to Eq. (2.11) reads: 
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W>* =-<F>* ~<G>% 4+ <b% (2. 14a) 
’ 0, 0,0 
where 
re J] ogi y 1 4 ) 1 AK ' 
<W> mf, wey, F 2° = 7, (Fi 9 - FZ, 0) Get = (Gy - Gey) 
(2. 14b) 


Substituting Eq. (2.14b) into Eq. (2. 14a) gives 


1 iO 1 A 1 1 4 ly 
Woo = Woo + Atl <— (Fi -F4,) - a (68 ~G4 4) +W3) (2.15) 


0,% 


1/2 


+1/2, 0’ etc., first the calculation of 


To calculate the function F 


1/2 1/2 1/2 
+1/2,0° “o, 1/27 2949 Wg 9 
tained from a truncated Taylor series expansion as 


W WwW is required. These terms can be ob- 


mesAt tht ye me, ee oe Swe, eS (2. 16a) 
At 


i] 


Wee st x rth ome xe, ref. Awe x, rtS) (2. 16b) 


a 


Wert x, d- Mex, de SW, (2. 16c) 


Here the first terms of Eq. (2. 16a) can be taken as the average of we 


0,0 
and Wii0° Similarly, the first term of Eq. (2. 16b) can be taken as 
the average of Wo 0 and Wy +1 The first term of Eq. (2. 16c) is as- 


sumed given by 
Woo = We + Meio + Wo. = Wo iy 
The second term in Eq. (2.16) can be replaced by spatial derivatives 


using the differential equation (2.11). In this way the following equa- 
tions are obtained: 


AEDC.-TR-73-29 


M 10 0 At ae) 0 1) 
Wao = 3 (Woo t Maro) + ng lest 2c Ro tag + <dl> si, ol 
N 1 0 , gd At 0 0 0 
Wo ay = 365 + Wo ep + _y FOS ae - se + <H> 9 41,] (2, 17) 
1M 1 0 0 0 0 Ate on 0 0 0 
Woo = aio + Weiot Wo + Wo -)) + arse ry bot <G? ‘ + Hy ol 


Now approximate the derivatives by difference quotients (refer to the 
sketch below): 


(-1,1) (0,1) (1,1) 
Ar 
0,0 
(-1,0) srk, (1,0) 


(-1,-1) (0,-1) (1,-1) 


Sketch Showing the Grid Points and the 
Values of Indices (m and n) around a 
Point (m = n= 0) 


AEOC-TR-73-29 


0 1 +70 0 
SO? ee = t 55 Faro Fo) 
0 0 0 14] 
Zoe aid (Se. + Gry Gon + Gin) 
49 2Ar 2 2 
1 pro 0 0 0 
= Fx: 90,1 + Gi ~ Goi, ~ Gay) 
0 L9) 0 
0 1 {¥i,0 + Fuyt Flijo + Flat 
<F > =~ |—_;— = 
0,t% 20x 2 2 
] 0 =0 0 i) 
~ 4Ax (Fh io * Fy +1 7 Fai.o Fey sie 
0 1 nd 0 
<G>o ay = t4- (Go 4, Co) 
o _! 0 0 
or 0 os 2Ax (Fy 9 Fao) 
0 _ _! ¢fo 0 
<C> 0,0 = Ae Go ~ Go=r 
and 
0 =_ Leo 0 
<> sy = 3 Hy + Hi, 4) 
1 0 0 
<H>o 4% = 3H, i Ho +) 


Substituting Eqs. (2 


. 18a) and (2 


.18b) into Eq. (2.17) gives 


1At 


Wes ° 5 + Waa) # TFS, = ag = aS. 2 Goa. 
+ 5 AttH® + Hes) 

We a ¥ 5 (W9 = Wo +1) = 7 a (6 8 Fi vi = Fev ~ Pee t ; 
+ [AUH? , + Ho 4.) 

Wr = 5m = WEL bs ae - Wo) 
= sla Ci is ah oe x (62 1 Go) es che 


0 
- 6 


ol et 


(2. 18a) 


(2. 18b) 


(2. 19b) 


(2. 19c) 
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Finally, writing Eqs. (2.15) and (2.19) in the notations previously 
defined gives 


WsL,mjn) = Wmn) + Ath -[Fes.m+s.n) — F(et.m,0)] 


~ q [CEs 5 m,n+ 5) ~ C0+5,m,n—5)] + H(E+5m,0)1 (2. 20a) 


Wee <m=5,n) 7 Z[W(E,m, 2) ees se = Atts 5 (F(E,m=1,n) ~ F(é,m,n)] 


5 Ce,m,n+1) + G(0,mtl,n+1) - G(2,m,n—1) - G(2,m41,n-1)] 


+5(H(@,m,n) + H(E,m#1,0)]1 (2. 20b) 
W(E+5,m,ni3) s = (R(E,m,n) + WE,m,n4])] + = At 2 [E(E,mel,a) + F(2,m+1,n41) 


~ F(2m=1,n) - F(2m=1,n21)] = 5, (G(e,m,ne1) ~ G(2,mn)] 


] 
~ [H(@m,n) + H(&m,n21)]} (2, 20c) 


and 


Weees myn) = 2 {WEmeln) + WemLn) + Wemorl) + W(em,n-1) 
oAty 1 teemelo) — F(&m-L,n)] 
2° 2Ax oti: = enn 


~ sq [Cem nel) - G(é,m,n-1)) + H(2,m,n)} (2. 20d) 


SECTION III 
COORDINATE TRANSFORMATION 


In Section II, the conservation-law form (2.11) was written in cy- 
lindrical coordinates (x, r, and 6). The finite difference net in these 
coordinates will be a rectangular lattice. Therefore, on the nozzle 
wall boundaries, the lattice points will not fall on the wall curve. One 
way to eliminate this difficulty is to use a variable net size near the 
boundaries, but this would considerably complicate the finite differ- 
ence scheme. Another solution is to use a coordinate transformation 
from x, r to x, y such that the wall shape is expressed as y = const. 
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This transformation can be accomplished in the following manner: 
Let s = s(x) be a function describing the.nozzle shape. Consider the 
coordinate transformation: 


r= s.(x) 
ee 3.1 
(x,r) > (cs m s(x) = c) | 


Then, 


fe} ] 0 (3. 2) 


Substituting into Eq. (2.11) gives 


[s.’+ y(s “= s,*)] 
Bowe deem = MN 


1 a ae 
a F(W) + ,-s) 57 = H(®) (3. 3) 


8,75; oy 


It is seen from Eq. (3.1) that, in the x, y coordinate system, the wall 
shapes are expressed as 


Ywal] = constant (3, 4) 


and, therefore, a constant value of y can be maintained throughout the 
entire field and the logic of the computer program considerably re- 
duced, 
Let Wm, n represent W(t +A, x + mAx, y+ nAy) in the x,y sys- 
tem. Also let m=1 be the nozzle inlet 
m = M be the downstream boundary 
n= 0 be the centerbody wall 


n=N be the outer nozzle wall 
Then the finite difference form of Eq. (3.1) becomes 


>4 on ae o58 Be a % % 
Wy Fay, t Kithyoh, ~ Ke<Gyt + tdi (3. 5) 


where the terms within the brackets are given in (2.14b) with the under- 
standing that Ar is replaced by Ay 


ane [s,’+ nAy(s ’~ 6,3 
Ae “ce, 
1 
Rein 8,7 3; 
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With the coordinate transformation, Eq. (2.15) becomes 


Foot Mo + AP - FE + kK al ee akg) 
(3. 6) 
-Ky a (G4, - G8) + WEI 
and Eq. (2.19) becomes 
iM 1 10 i - 1 At 0 . At 0 0 0 
Wyo = 2 (Mot Mea) Fs eta Foe) + Ky agro ta Pon - Fh) 
(3. 7a) 
Ke (G9 +63). - Gy - Gy) + ALG? stilted 
if ] 10 10 At . 0 0 Ky Nt 0 
We ag = 5 OO gt WO) = eRe ot FO re, gy) tle FO 
0 rel Ly seq i) 
=F Ky FC) ay Go) + FAUHe +H?) (3. 7b) 
vhs 1 10 1 : At joo jo 
¥5,0 = mee +B io + 8H athe * ad reat lu ety) © srt? O17 Foy) 
(3. 7c) 


] ‘9 0 0 
25; oa -G, -) + Ty ol 


The differencing scheme consists of the following two steps: 


1/2 1/2 1/2 : 
1. Calculate Wa i/e, 0 Wo £1/2? and Wo, 9 using Eq. (3. 7). 
1/2 


1/2 
Go 41/2” 


+1/2, 0’ oe 


From these results, evaluate F 


1/2 
0,0 


2. Introduce these functions together with we 


a2, 1 0,0 
(3.6) to obtain Wo, 0° 


H using the algebraic relations (2. 13a) and (2. 13b). 


into Eq. 


Examination of these steps reveals that the calculation of the components 


W; at a point (m,n) on a time level £ + 1 required the components Wj; 
at the points 


(mn) , (mi ijn) > (myn il) , (m2 yn t 1) 


1] 
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on the time level €. That is, in order to calculate a new vector W at 

a point (m,n) on the time level 2+ 1, the values at point (m,n) and its 
eight nearest surrounding grid points on time level &£ are required. 
Therefore, the scheme represents a 9-point forward difference scheme. 


The above explanation shows that for every new time cycle the 
scheme cannot furnish values at the mesh points lying on the boundaries 
of the region where the flow is desired. As in all problems, these 
values must come from boundary conditions imposed on the flow. 


SECTION IV 
BOUNDARY CONDITIONS 


4.1 WALL BOUNDARIES 


The values of W;'s at the walls of the nozzle can be obtained from 
consideration that certain wali boundary conditions must be satisfied 
at steady state. 


For the case of no swirl (i.e., W4 = 0), Eqs. (2. 1b) and (2. 1c) 
can be solved for the pressure gradient normal to the nozzle walls. 
Rewriting Eqs. (2. 1b) and (2. 1c) for W4 = 0 gives, respectively, 


au 1 OP 

GP oe oe tae > (4.1) 
Ov Ov 1 oP 

pe gg ee Pe ola (4, 2) 


By making the coordinate transformation and noting that at the wall, 
Eq. (3.2) is given by 


a é a0 = 0 
Ox'r ~ Oxy so—8, dy 
and (4, 3) 
oS se 
Or 8-8; Oy 


then Eqs. (4.1) and (4. 2) become, respectively, 


du s’ eu v du 1,-eP s’ eP. 
es Ge on oy eae pe aoe! 


12 
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ov s’ dv) v ov 1 oP 


ai San Gia) Oy *Sesaw oy * pe, om) oy (4. 5) 


However, at the walls, s = a and v = u tan 6; therefore, Eqs. (4. 4) 
and (4.5) can be written, respectively, as 


oP s’ OP. 


4 ar + Ls + ads = te - 5) ay! = 0 (4, 6) 
an 
du du 9 2,00 1 dP 
tanO> + utand=— + wu sec “Gx Fg, saa on © (4. 7) 


Eliminating 2 u from Eqs. (4.6) and (4. 7) gives 


5 fe] 
$ P = ; sin 26 (s, = s;) 2 P - pus, -s;) ox Ox (4. 8) 


Equation (4. 8) can be written in finite difference form and used to 
evaluate the static pressure on both the nozzle outer wall and center- 
body. In order to define all of the variables on the boundaries, one 
more flow property must be calculated. Since the flow is inviscid and 
only the steady-state solution is of interest, the following isentropic 
relation can be used to solve for static temperature. 


oop’ Re 
« bT +—T 
ee frerat) (4.9) 
E iy Ors 7? 
- 2 
The density is given by 
P 
Pm aT (4. 10) 
The velocity is given by 
% 
V = [20(T,-T) + KT,?-T) + 2e(T,8~ TH (4, 11) 
where 
u = Vcos@ (4. 12) 


13 


AEDC-TR-73-29 


and 


v = Vsin@ (4. 13) 
Hence, Eqs. (4. 8) through (4.13) supply the wall boundary values. 


The present analysis assumes that there is always a centerbody 
present. For nozzles without a centerbody, sj can be made small with 
respect to the outer wall (i.e., 5; < 0. 01s3). 


It should be noted that if Eq. (4.9) were applied along interior flow 
field streamlines, the energy equation (2.1le) could be eliminated entirely 
from the present solution. Elimination of the energy equation would 
reduce the computation time and should improve the numerical stability. 
However, with the energy equation, the present computer program can 
easily be extended to transfer of energy between streamlines. 


4.2 DOWNSTREAM BOUNDARY CONDITION (CHOKED FLOW) 


A coordinate line x = constant and m = M is chosen as the down- 
stream boundary several grid stations downstream of the sonic line. 
In the case of a simple convergent conical nozzle, this may be done by 
initially assuming that the nozzle after the exit is extended through a 
short rounded throat section and a short divergent conical diffuser. 
Since the flow is entirely supersonic, no errors will be generated up- 
stream from this end line. A linear extrapolation will be sufficient to 
obtain flow properties at the downstream boundary. The extrapolation 
formula used is 


Py = 2Py-1 - Pyne 


4.3 DOWNSTREAM BOUNDARY CONDITION (UNCHOKED FLOW) 


For subsonic flow, the radial distribution of static pressure and 
flow angle at the downstream boundary are input. From these two 
properties, all other flow variables can be defined. In reality, defin- 
ing the downstream distribution over specifies the problem and, there- 
fore, the input distribution must be reasonably correct. It is planned 
in the near future to investigate using a linear extrapolation of flow 
properties similar to the one used for choked flow at the downstream 
boundary. It must be determined if an extrapolated downstream bound- 
ary will converge to a reasonable distribution with time. 
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4.4 UPSTREAM BOUNDARY CONDITIONS 


A coordinate line x = constant at m = 1 is chosen as the upstream 
boundary. The inputs are the radial distribution of stagnation pressure, 
stagnation temperature, mass-weighted gas composition, and normal- 
ized static pressure. The static pressure can be normalized by either 
the outer or inner wall static pressure. 


4.5 FREE-JET EXPANSION {(CHOKED) 


To caluclate the flow field for a convergent nozzle exhausting to a 
prescribed pressure field, the free-jet portion of the outer contour is 
adjusted with time until the prescribed and calculated pressures on the 
boundary agree. The free boundary contour is adjusted with the follow- 
ing expression: 


(P, ql atl eon 2 9 1/2 
t (M2). = 1) (4, 15) 


tof— 


(p\ 2) 


The absolute value of M2-1 is used so that Eq. (4.15) will also 
apply for slightly subsonic flow (i.e., M> 0.9). If the nozzle exit 
radius and the new axial distribution of flow angle are known, a new 
free boundary contour is caluclated from 
(0,). - O04 (4. 16) 


i 
1 
Ss, = 2 (s,). + Ax tan 5 


Sexit 
By using this subroutine, the computer program is restarted until the 
specified and calculated pressures agree within some preselected 
tolerance. 


4.6 INITIAL FLOW PARAMETERS 


As previously stated, to calculate the components Wj at time level 
£+ 1 requires the components Wj at time level 2. The steady-state 
solution is independent of the path; however, the prescribed initial 
flow field does have some influence on the time required to reach 
steady state. The present solution is initiated from a pseudo one- 
dimensional flow field. To establish the initial flow field, it is assumed 
that all flow properties are independent of axial distance (x), or 
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s. 
rid «Po (4) 
(Xt) One I\5—3; (4. 17) 
rs; 
T,G,r) = Tal —) (4, 18) 
PSs 
cp(x,r) = ep,_(—=) (4, 19) 
P P res; 
eo = P| ( =) (4, 20) 
m=1 ° ?} 
The local flow angle is assumed to vary linearly with radius, or 
res. 
Pocal = 9 + (6,-6)—— (4, 21) 


For choked flow, it is necessary to maximize the weight flow to 
ensure that the flow downstream of the throat is supersonic, or 


. s 
Wr 1-D = 2aP f 2 wT rdr (4. 22) 
s. 
where T can be evaluated from Eq. (4.9) and u from Eq. (4.12). For 
the case of radial nonuniformities of stagnation properties, values of 


P are assumed until Wr 1-D is a maximum. The value of P at each 


axial station is found by iterating on P to satisfy the throat mass flow. 
Since the static pressure is initially assumed constant, this start pro- 
cedure will not work for nozzles having large convergence angles (i.e., 
250 deg) since for this case one-dimensional flow is a poor assumption. 


4.7 TIME STEP 


The finite differencing scheme used in this report is conditionally 
stable. Stability can usually be achieved if the spatial and time inter- 
vals satisfy the following condition: 

“1 
At Max DO (4, 23) 
maxt 
where A is the smaller of Ax or Ay. ‘Large numerical instabilities are 
readily apparent when negative or large oscillations of pressure are 
observed in the output for the higher Mach number regions of the noz- 
zle. When this condition is encountered, a smaller time step should 
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be used and the calculations restarted from time zero. Oscillations in 
the numerical results can be limited by use of finer mesh size and 
possibly sometimes by a reduced time step. In general, however, it 
has been found to be desirable to maintain the largest time step con- 
sistent with numerical stability. Numerical oscillations less than one 


: : id 
percent in pressure ratio (Pedal! etsgnation. are considered 


acceptable. 


4.8 SPECIAL PROGRAM RESTRAINTS 


In calculating various flow fields with the present set of equations, 
it was found necessary to add some programming restraints. These 
numerical restirctions could possibly be avoided if adequate computer 
storage were available so that the variation of flow properties both 
with time and across grid points could be kept small. These restraints 
are, (1) smoothing the nozzle density profiles, and (2) maintaining the 
radial distribution of the flow angle monotonic in the subsonic portion 
of the nozzle. 


The density smoothing process consists of applying a weighting 
factor (a weighting factor of four is generally used) to the local value 
of density and then linearly smoothing with the surrounding values of 
density. All other variables are then recalculated to correspond to 
the smoothed density distribution. This smoothing process has an ef- 
fect similar to adding a dampening factor to the numerical procedure 
to increase the apparent viscosity term. Such factors do not disappear 
at steady state; however, an analytical investigation of varying the 
value of the weighting factor and a comparison with experimental data 
revealed that the smoothing process has no significant influence on the 
accuracy of the results. Some influence may be felt at a point where 
the flow is being rapidly expanded. 


The flow angle restraint subroutine is optional and is generally 
only required when there are insufficient grid points to adequately de- 
scribe the geometry and inlet flow variations. This subroutine ensures 
that the flow angle is radially monotonic in the inlet region of the noz- 
zle when the flow angle is known to be monotonic such as on a conical 
convergent nozzle (see sample calculations). 


There is also a restriction on the minimum flow Mach number 
(~0.1 to 0.2), and any calculated value less than this minimum value 
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is reset to the minimum value. Therefore, flow fields where ex- 
pected Mach numbers are less than (0.1 to 0.2) should not be attempted. 


SECTION V 
GENERAL PROGRAM INFORMATION 


5.1 PROGRAM INPUTS 


In order to make a nozzle calculation, the information required 
is the nozzle and centerbody radial coordinates and slope, radial dis- 
tribution of total pressure, total temperature, and gas composition, 
and the normalized radial distribution of static pressure all at the noz- 
zle inlet plane. For the case of an unchoked nozzle, the radial distri- 
bution of normalized static pressure and absolute values for the flow 
angle at the downstream boundary must also be specified. For conver- 
gent nozzles the nozzle ambient pressure or ambient pressure dis- 
tribution must be specified. Appendix II gives the detailed information 
required to make up the input card deck. 


5.2 PROGRAM OUTPUTS 


In general, the program prints all the flow parameters at each 
grid point; that is density, axial and radial velocity, static pressure 
and temperature, flow angle, and Mach number. In addition the mass 
flow and axial thrust at each axial station are tabulated. Appendix III 
gives the specific printouts. 


SECTION VI 
SAMPLE CALCULATIONS 
To illustrate capabilities of the computer program, sample cal- 
culations for three basic turbine engine exhaust nozzle configurations 


are presented: (1) choked convergent-divergent, (2) choked unshrouded 
plug, and (3) unchoked convergent- divergent. 


6.1 CHOKED CONVERGENT-DIVERGENT NOZZLE 


A schematic of the nozzle geometry is presented in Fig. 1 (Appen- 
dix I). The flow stagnation conditions at the nozzle inlet are presented 


18 


AEDC-TR-73-29 


in Fig. 2. The card format sheets for the program inputs are present- 
ed in Appendix IV. First, it should be mentioned that the nozzle was 
started at an inlet radius of 2.714 in. rather than 3,605 in. It has been 
found that for choked nozzles the flow conditions at the inlet region for 
Mach numbers less than ~0, 3 have no apparent effect on flow conditions 
at the throat plane. By limiting the region of interest, a finer grid net- 
work can be obtained in the region of the nozzle throat. Second, it 
should be noted that the nozzle wall forms an apex at the throat plane 
(the wall slope instantaneously changes from -0. 44 to 0.0267). Since 
only a single value of wall slope can be specified, the average slope 
(-0. 20664 for the present case) is used. A comparison of experimental 
(Ref. 7) and theoretical wall pressures is presented in Fig. 3. The 
complete printout is presented in Appendix V. In general, the calcu- 
lated wall static pressure distribution agrees quite well with experi- 
ment. The same is true of the theoretical and experimental thrust and 
discharge coefficients. In calculating the nozzle performance coeffici- 
ents, a first order boundary layer correction was applied to the invis- 
cid flow field results. The computer program used for the boundary 
layer correction is described in Ref. 8. 


As the results demonstrate, the present analysis can be used for 
supersonic flow. This is only true as long as there are no strong 
shocks present. It is much more expedient, however, to use the rota- 
tional method of characteristics for the supersonic flow regime. 


6.2 PLUG NOZZLE (UNSHROUDED) 


A schematic of the nozzle geometry is presented in Fig. 4. The 
flow stagnation conditions at the nozzle inlet are presented in Fig. 5. 
The card format sheets for the program inputs are presented in Appen- 
dix IV. Here again, because of the low inlet Mach number, the flow 
field was started at an outer radius of 3.31R rather than 3.605R. The 
first guess on the free-stream portion of the outer flow field boundary 
is a divergent conical section. Three program restarts were used to 
obtain the specified pressure (960 + 40 psfa) along the free streamline. 
A comparison of experimental (Ref. 7) and theoretical? wall pressures 
is presented in Fig. 6. For this caluclation, the supersonic portion of 


2This calculation was made using an earlier subroutine which ex- 
trapolated internal flow conditions to obtain wall conditions. The re- 
sults obtained using this subroutine should closely agree with the re- 
sults obtained from the present program. 
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the flow was obtained from the rotational method of characteristics. 
Except for the aft end of the plug, the calculated and experimental 
pressures agree quite well. This discrepancy in plug pressure is 
attributed to flow separation caused by the shock which originates from 
the flow expansion process at the cowl exit plane. The present calcu- 
lation assumes that the flow remains attached to the plug. In calculat- 
ing the nozzle performance coefficients, a first-order boundary layer 
correction (Ref. 8) was applied to the inviscid flow field results. 


When using the free-jet subroutine, some caution is required. 
First, Eqs. (4.15) and (4.17) assume close agreement between the old 
and the new values for the.boundary pressure. For example, if the cal- 
culated pressure ratio at a point is 5.0 and the target pressure is 2.5, 
it is best to reduce the boundary pressure in several increments (i.e., 
5-4, 4-3, 4-3, 3-2.5) rather than in one step (i.e., 5-2.5). Second, 
for nozzle geometries having large flow expansions the numerical cal- 
culations cannot adjust in one grid point. For example, a 40-deg sharp 
lip convergent nozzle expanding to a pressure ratio greater than 4 can 
require one and possibly two grid points to make the transition from 
the last wall pressure to the value for the free-stream pressure. 


Nozzle flow separation is another condition frequently encountered. 
Evaluation of nozzle separation pressure is a function of the particular 
nozzle geometry and boundary layer characteristics. In lieu of better 
information, there is some experimental evidence for convergent coni- 
cal nozzles having small throat radius of curvatures that flow separa- 
tion will occur when the wall pressure is approximately 0. 85 of the free- 
stream pressure. Therefore, in making a convergent nozzle calcula- 
tion, it is assumed that the nozzle flow remains attached to the wall if 
the wall pressure is 70. 85 of the external pressure. [If the wall pres- 
sure is <0. 85 of the external pressure, it is assumed that the flow will 
separate from the wall and readjust through a weak compression back 
to the nozzle external pressure. The free-jet subroutine is used to 
solve the separated portion of the nozzle flow. 


6.3 UNCHOKED CONVERGENT-DIVERGENT NOZZLE 


The nozzle configuration for this calculation consisted of a cir- 
cular arc nozzle inlet and throat which merges into a 6-deg half-angle 
divergent conical section. The flow stagnation conditions at the nozzle 
inlet are presented in Fig. 7. The card format sheets for the program 
inputs are presented in Appendix IV. At the nozzle exit plane, a linear 
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radial variation of flow angle was used and a radial variation of static 
pressure profile was assumed. The radial distribution of composition 
was estimated by assuming complete combustion for the local values of 
fuel and air ratio from Fig. 7. In making this calculation, the flow 
angle restraint was used for the entire flow field. The first calculation 
made without the flow angle restraint exhibited some flow divergence 
near the nozzle centerline. The final plot from the program plot rou- 
tine is shown in Fig. 8. This plot presents the nozzle geometry and 
lines of constant static pressure. The blip in the static pressure pro- 
file near r = 2.5 is attributed to the dip in the total temperature radial 
profile and the rapid decrease in fuel-air ratio at this radial position. 


SECTION VII 
SUMMARY 


An analytical method and computer program has been presented 
which is capable of predicting the flow field and performance coeffici- 
ents for axisymmetric exhaust nozzles representative of turbine en- 
gines. To make a calculation for choked nozzle flow, the description 
of the nozzle geometry and the radial distribution of flow stagnation 
conditions is required. To make a calculation for choked nozzle flow, 

a description of the nozzle geometry, radial distribution of flow stag- 
nation conditions, and downstream radial distribution of flow angle and 
normalized static pressure is required. The magnitude of the radial 
variation in stagnation conditions which can be handled by this computer 
program will be a function of the available mesh size and nozzle configu- 
ration. This factor can be determined with operating experience for the 
individual computer. 


The computer program in its present state is capable of calculat- 
ing the inviscid flow field for most nozzles of practical interest. With 
some modification, additional nozzle configurations could be considered. 
For instance, the free-jet boundary subroutine can be used on the noz- 
zle centerbody surface for truncated plug nozzles. Also, the case of 
two intersecting jets could be solved simultaneously by alternately 
matching the pressure along the jet interface. This case could be rep- 
resentative of ejector nozzles which have a step profile in stagnation 
conditions providing, of course, viscous effects do not predominate the 
flow field. Any gas composition can be calculated as long as the spe- 
cific heat-temperature relation is expressed as a second-order poly- 
nominal. 
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APPENDIX II 
PROGRAM INPUT CARDS 


Card 1 - Identification Card 


Cols. 1-4, 1- ** 
Cols. 5-80, Title identification 


Card 2 


This card specifies the number of times printed and the number 
of cycles per output. For instance, 3 and 50 means that the flow field 
will print out every 50 iterations for a total of 150 iterations. 


Cols. 1-5, Number of times printed (1-5 format) 
Cols. 6-10, Number of-cycles per output (I-5 format) 


Cols. 11-15, any positive number in this space indicates a re- 
start of the flow field, for instance, in going from 
150 to 300 iterations. If these columns are left 
blank, it indicates that a new case is being started. 
Any negative number in this space indicates a new 
free-jet boundary is to be evaluated before the cal- 
culations are continued. 


Additional Cards for Free-Jet Subroutines 

These cards are used only if there is a negative number in 
Columns 11-15, Card 2. 
Additional Card 1 


Cols. 1-5, First X station for free pressure reset (1-5 format) 
Cols. 5-10, Last X station for free pressure reset (I-5 format) 
Cols. 11-20, Downstream pressure control (psfa) (E-10 format) 
The downstream pressure control is used only for the choked noz- 


zle program. The purpose of this control is to prevent the downstream 
boundary from becoming subsonic. The magnitude of the control 
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pressure should be approximately equal to the static pressure value 
for sonic flow on the axis. 


Additional Card 2 


These cards contain the desired pressure ratio (P ee 
stagnation 


Pea) (E-10 format) at each X station. The pressure ratios must be 


input in consecutive order from upstream to downstream and the number 
of input pressure ratios must correspond to the number of X stations 
implied on additional card 1. If the pressure is constant with X, then 
the pressure ratio should be input as a negative number in Cols. 1-10 
(E-10 format). 


This is the end of the additional cards. 


Card 3 and 4 


These two cards specify the lines of constant static pressure to 
be used in a plot subroutine. Pressure should be input in psia. A 
total of 16 pressures can be input (E-10 format). 


Card 5 


This card is for the density smoothing or weighting factors. A 


1 
| 

1-4-1 weighting distribution has generally been used. These factors 
I 


1 
can be varied to determine if they are influencing the results. As long 
as the gradients in the flow field are fairly locally uniform (about a 
point), no significant influence has been found. 


Cols. 1-5, upper factor, (i.e., 1) (I-5 format) 
Cols. 6-10, lower factor, (i.e., 1) (I-5 format) 
Cols. 11-15, left factor, (i.e., 1) (I-5 format) 
Cols. 16-20, mid factor, (i.e., 4) (I-5 format) 
Cols. 21-25, right factor, (i.e., 1) (I-5 format) 
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Card 6 
Cols. 1-5, the number of y stations (I-5 format) 


There area minimum of 3 and a maximum of 21 stations available. 
More stations may be added by recompiling. Ay and Ax should be ap- 
proximately equal at the throat. 


Cols. 6-10, the number of x stations (I-5 format) 


There are a maximum of 57 stations available. More stations may 
be added by recompiling. 


Card 7 


Cols. 1-12, Ax, ft (E-12 format) 
Cols. 13-24, At sec (E-12 format) 


Cards 8 —»>N 


These cards contain the nozzle geometry. and for a convergent 
nozzle, the first assumption on the coordinates for the free strea.nline. 
The number of geometry cards must be equal to the number of » stations 
in Cols. 6-10, Card 6, (4E15.0 format) 


Cols. 1-15, value of y? (ft) for the outer nozzle wall 


Cols. 16-30, value of tan @ for each y value on the outer nozzle 
wall 


Cols. 31-45, value of y (ft) for the centerbody (for no centerbody 
let sj centerbody be a very small number, for 
instance 0.001 so). 


Cols. 46-60, value of tan @ which corresponds to centerbody y 
value (for no centerbody, tan @ = 0). 


The values of y and tan @ are input in sequence starting at the nozzle 
inlet. 


3Since single precision is used, y for the outer wall should not be 


less than 0.1. The nondimensional flow field is not affected by the units 
ony; only the relative values of x and y are important. 
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Card N+ 1 Insert blank card 


Card N + 2 


This card is for the flow angle restraint. ' Leave this card blank 
and the subroutine is bypassed. For a conical nozzle having a sharp 
lip and without a centerbody the flow restraint may be used up to the 
nozzle exit plane. For a contoured nozzle or centerbody the flow re- 
straint should be used up to the first geometry inflection point (refer 
to sample cases). 


Cols. 1-5, axial (x) station for flow angle control (I-5 format) 


Card N+ 3 


This card specifies whether the real or perfect gas subroutine is 
used. For real gas, cp is represented with a quadratic in temperature. 
The constants used for the cp-T relation have a temperature range from 
400 to 2000°R. For temperatures greater than 2000°R, new constants 
are required. The perfect gas calculations drop the temperature coef- 
ficients on the quadratic. Perfect air is computed to have a specific 
heat ratio of 1. 4. 


Cols. 1-4, for perfect gas calculations, write PERF in Cols. 1-4. 
For real gas calculations, write REAL in Cols. 1-4. 
Card N + 4 
This card indicates the number of radial stations for which flow 
properties will be input at the nozzle inlet plane. There is a minimum 
of 3 points that can be input. The flow conditions on the wall and center- 


body or centerline must be two of the inputs. 


Cols. 1-5, number of inputs (I-5 format) 


36 


AEDC-TR-73-29 


CardsN+5—>M 


These cards specify the stagnation properties and gas properties 
radially across the nozzle inlet plane. The sequence of inputs is from 
the centerline to the nozzle wall. 


Cols. 1-12, radial position 


rng? 

; - ) (E-12, Format) 
s -S, 

° 1 


Cols. 13-24, stagnation pressure (psia) which corresponds to 
radial position. (E-12, format) 


Cols. 25-36, stagnation temperature (°Rankine) which corresponds 
to radial position. (E-12 format) 


Cols. 37-40, for information or identification. These columns 
may be left blank. 


Cols. 41-45, Mass fraction of air (E-5 format) 

Cols. 45-50, Mass fraction of carbon dioxide (E-5 format) 
Cols. 51-55, Mass fraction of carbon monoxide (E-5 format) 
Cols. 56-60, Mass fraction of water vapor (E-5 format) 
Cols. 61-65, Mass fraction of oxygen (E-5 format) 

Cols. 66-70, Mass fraction of nitrogen (E-5 format) 

Cols. 71-75, Mass fraction of argon (B-5 format) 

Cols. 76-80, Mass fraction of hydrogen (E-5 format) 


If the total mass fraction does not add up to one, the individual 
mass fractions will be normalized by the total mass fraction. 


Card Mtl 
This card indicates the number of radial stations which will be 
used to specify the nozzle inlet static pressure profile. If a uniform 


profile is assumed, leave this card blank. 


Cols. 1-5,number of radial stations (I-5 format) 
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Card M+ 2 —®L (for Choked Flow) 


These cards specify the radial position and static pressure pro- 
file. The sequence of inputs is from the centerbody to the nozzle wall. 


r-s. 
Cols. 1-12, radial position, (—“:) (E-12 format) 
So - Si 
Cols. 13-24, ratio of local static pressure to either the center- 
body or wall static pressure (E-12 format). 


Card M+ 2 —L (for Unchoked Flow) 


Providing card M+ 1 is not blank, these cards specify the radial 


position and static pressure profile. The sequence of inputs is from the 
centerbody to the nozzle wall. 


r-s. 
Cols. 1-12, radial position, a) (E-12 format) 
Sq ~ 5 
Cols. 13-24, ratio of local static pressure to either the center- 
body or wall static pressure (E-12 format). 


If card M+ 1 is blank, then card M+ 2 indicates the number of 
radial stations which will be used to specify the exit plane profile. The 
following cards (M+ 3—*->*-) should contain the same information as 
specified above, that is, the exit plane radial position, static pressure 
profile, and in addition the tan @ profile (Cols. 25-36). If a uniform 
exit profile is assumed, leave this card blank. 


Card L + 1 (for Unchoked Flow) 

This card specifies the mean value of the static pressure at either 
the inlet or exit plane. For the inlet plane, use a positive value for 
static pressure. For the exit plane, use a negative value of static 


pressure. 


Cols. 1-12, static pressure (psia) (E-12 format) 
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APPENDIX Ill 
PROGRAM PRINTOUT 


Nozzle Geometry - The nozzle coordinates, area, and slope are 
printed. A check should be made to see that the values of SO' 
DSO DSI 


Dx 294 Dx> 


and SI' agree closely with respectively. 


Gas Properties - The specific heat versus temperature for various 
components, molecular weight, and specific heat ratio versus 
radial position are printed. 


Stagnation Conditions - The ratio of specific heats, enthalpy, speed 
of sound versus radial position are printed. Also, the minimum 
velocity is printed. The minimum velocity is the smallest value 
permitted to be used in the caluclations. A velocity, whose value 
is calculated to be less than the minimum, is reset to the mini- 
mum value. 


Flow Field - The flow field is printed at each axial station for each 
time iteration specified to be printed. The first column of vertical 
numbers corresponds to the radial station, starting with the center- 
line or centerbody. The second vertical column (percent stream- 
line) gives the percent of mass flow contained below this radial 
position. The third number (W}) is the product of pr. Wg is the 
product of pur. W3 is the product of pvr. Wg, is the product of 

the internal energy (e) and radius (r). The other printouts are 

self explanatory. 


Nozzle Coefficients - The first vertical column (Wp) is the calcu- 
lated weight flow (lbm/sec) at each axial station. The second 
vertical column (W¢/ Wr) is the ratio of the mass flow at each 
axial station to the mass flow at the throat axial station. If the 
ratio of Wy/ wf deviates significantly from unity at any one given 
axial station, this is an indication that more grid points are re- 
quired at-this station. The next column VD is the value of the 


So 
integral an f pu“rdr at each axial station, and PD is the value 
Si 
So 
of the integral 20 f Prdr at each axial station. The last verti- 


Sj 
cal column is the nozzle thrust (lbf) at each axial station. 
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6. Wall and Axis Flow Conditions - The flow conditions on the wall 
and axis are separately tabulated after the last flow field has 
been printed. 


ts Plot Coordinates - The x, y coordinates for the isobars specified 
by Cards 3 and 4 are tabulated. 


8. Convergence Criteria - This portion of the printout is used to 
determine when steady-state conditions are achieved. The first 
horizontal line gives the axial station for which the wall and axial 
pressure ratios are tabulated. The last vertical column is the 
time iteration. The computations should be continued until the 
variation in pressure with time is considered to be negligible; 
furthermore, the pressure field should go through at least one 
or two minimums. Numerical oscillations less than one percent 
in pressure ratio are considered acceptable. If the flow will not 
converge, the time step should be reduced and/or increase the 
number of grid points. 
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APPENDIX IV 
PROGRAM INPUTS FOR SAMPLE CASES 
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APPENDIX V 
SAMPLE PRINTOUT FOR C-D NOZZLE 


NOMENCLATURE FOR COMPUTER PRINTOUT 
{in chronological order) 


Increment of time used for calculations 
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Increment of axial distance used for calculations 


Radial coordinate of nozzle wall 

Slope of nozzle wall 

Radial coordinate of nozzle centerbody 
Slope of nozzle centerbody 

Area 

Minimum area 

Radius 

Radius at minimum area 

Difference in radial distance, S = SO - SI 
Radial increment of nozzle wall 

Axial increment 

Slope of nozzle wall, SO’ = SOP 

Slope of nozzle wall in degrees 

Radial increment of nozzle centerbody 
Slope of nozzle centerbody, SI° = SIP 


Slope of nozzle centerbody in degrees 


Constants in specific heat-temperature relation 


Flow variable, Wy = pr 


Flow variable, Wp 5 = pur 


Flow variable, W3 = pvr 
Flow variable, Wg, = er 
Static pressure 


Stagnation pressure 
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Temp (R) 
T-Stag 
WE 

VD 

PD 


Static temperature 
Stagnation temperature 
Weight flow 

spu2rdr 


JPrdr 
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Unchoked Version 


= aWele sue s 
_J¢STEPL EXEC * FTHS TORE sPAAN,FTH=*ERCDIC,NOEDI T <NOXREF*  PUMNOSSET00236 
s so------ PROGRAM NO. SERO0238 9 —-<---<- a 27 
a 3 
c “UNCHNKEO FLOW WITH FREE SUBSDNIC EXPANSION. A 4 
c a 5 
U N BA IN LAX-W 
c TIME-DEPENDENT APPRNACH TO STEADY STATE.” a 7 
Coty A 8 
_ COMMON /PGMNO/ NPRNGI5) 7 A 9 
A 10 
DATA KRB/B/ 4K14/16/ all 
; _ WRITE (651) NPROG ; A 13 
WRITE (862) KB A 14 
__. WRITE 1492? Kl4& : a 15 
c A 16 
CALL ERRSET (207 02560-1591? A 17 
“CALL ERRSET (208,256e-1el) a aa aR BY YE ||) 
__ GALL ERRSET [209¢256e-191) _ A 19 
c A 20 
_.._ CALL CARDIN, ee ee ee ee A 2) 
CALL START : a 
CALL MATNP 
CALL ENDIO8 i a 
_.. CALL EXET eer, See ; ak _ A 25 
~""" stop A 26 
ce aA see. es = th A 27 
c 7 awe : hea A 28 
C . A 29 
soo 
1 FORMAT (°1%s20Ke*PROGRAMME NOW %s5A4/'0',22X%-°9REAL GAS TIME-DEPEND A 31 
~——"“VENT UNCHOKED NOZZLE FLOW WITM FREE EXPANSION °/) A 32 
_ 2 FORMAT ("1% s20Xe*OUTPUT FROM DATA SET NOw',13/°O" PO’ a 33 
="——" END : A 34- 
FUNCTION BANDIT [%1 oX2eX30X40X5? 5 6 1 
COMMON /FUBAR/ FleF2eF3eF4eF5 6 3 
"Gr B 4 
-€- __ CENTRAL 4=POINT SMOOTHING 8 65 
2 6 6 
BANBFLOX1 +F29X2 6 7 
=FSOXS+FO0K> A 
BAND I TSRANODET 6 9 
~ —"T"" BANDE THBANDETOFG 0X4 - : 8 10 
AR 11 
sess" RETURN ot pone We agen Ae a aa . 8 12 
c . f 13 
rem NE ( C 


SUBROUTINE BEDLAM c 1 
Cc heh ke ars ¢ 2 
c COMPUTE THE MAXIMUM MASS FLOW/AREA AT THE THROAT STATION. c 3 
C™°~ ITEREON. ASSUMES STATIC PRESSURE TO SATISFY DH/NP = 0 c 4 
Cc USE 3-PNENT PARABOLIC FIT ¢ 5 
c c ? 


__INITEAL PRESSURE = 0.34P2-HIN 
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_COMMON /FLIGNR/ WEIGHT »PTHROT» PANIC opty set COs 2s — 3) B. c.9 
“COMMON /COUNT/ LolL “Ee 710 
COMMON /EROS/ W121560,4),P(21,60) eee st G¢ ou 
CQHMMON /NERO/ MF eNFeNT G 12 
COMMON /STAG/ AA(8 521) pCP( 3221) ,CV63_21) pWTMt21),GAMZE21),RGAS(21) C13 
TePZC21)eT2 (21) ,HzZ(21)yRHOZ(21) Cc 4 
- Cc 16 
a OIMENSION A(3)5 X¢(3)2_— ¥C3) c 16 
Cc Dp eee ak Bie eee, _ ¢ iv 
ZERO=0.0 3 ue 
C 
—* ace I PIN 6 
Cc Ste, ety Sp pert PiSe e aek _ c 21 
XLOW=0.34¢PANIC Cc 22 
—. DEL KX=050005000001L*PANIE Cd ee ew G28 
C 24 
JERK=0 C 25 
C COMPUTE FIRST THREE POINTS. 26 
ee 00 1 KEls3 vem aoe a Me ae edt ee C 27. 
“XK )=XCOWS(K=1 #DELX ~ Cc 28 
CALL SETWP (XCK9NTD ; Cc 29 
Y(K=XMASS(NT) ‘ c 30 
t CONTINUE Cc 3 
C 32 
_ 2 Ka1969 br eats ete Chet Pe aon ee Oe 
JERK=K E C 34 
CALL PARAB (Xe Ys AD Me tenets es thes ode eto Co ee o. 
a JF (4(3).F0. ZERO) A(3)=1.00469 i Cc 36 
XTEST=-0.54A(29/A(3) c_37 
IF (A(3).GE.ZERO) GO TO © 3k 
IF _((XCL) LEoXTEST) oANDoIX(3) GEoXTESTI) GO TO 4 2 So ee FC? 238 
[a a Ss Cc” 40 
KCLPEXC2) SE ek geen ee ae ae 41 
YeL=vt2) C 42 
X(2)=xX13) C 43 
Tv esa)... 2 oe ae a 
a= MOBDSXC304DELN BB Gon ae eS Be EO 
c C 46 
CALL SETWP (X(3)9NT)_ [AS AEA bes © eee arnt es jae acta enone SG? MO! 
= Y(€3)=XMASS(NT) : Cc 48 
2 CONT INDE Cc 49 
c 50 
__3_____ CONTINUE af fine Miso a een t ae Me A i tetas oe sel SSL 
c “NO SOLTION” c 52 
______ CALL BOMBER _( "BEDLAM® » JERK) seis oo! Beak Gah eet Ge Boe 
“RETURN C 54 
c C55 
4 CONTINUE C 56 
c SOLUTION FOUND — Oe A ee eg ee, oe | Gt ae: 
CALL SETWP (XTEST NT) Cc 58 
__.WEIGHT=XMASS(NT) __ Pe at eg pet et ites 1G 359 
~ PTHROT=XTEST Cc 60 
C COMPUTE PRESSURES CORRESPONDING TO CHOKED FLOW. t 61 
CALU PHINOU (1) C 62 
fe = ES CALEIPMIINQUCINE:D te (ff at ee a a ee c 63 
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[<) s * 4e 6 
__PSTAL=P(1LsNFI/144.0_ Meta Be ee C68 | 
Ss PROT=P(L, 2 /PZ021) C 66 
_ PPOL=PCLeNFIZP2C21) 00 Cc 67 
POT=PTHROT/PZ(21) C 6B 
CALL HEANG C 69 
WRITE (6,5) c 70 
_.__... WRETE (6.7) HEIGHT,PTHROT »PANIC ; ; c 7 
WRITE (696) POTsPSIALsPPDI sPSIAL,PPOL Cc 72 
eee a Bec BS els elven idest wae, Gu cad te wees oO 8. 
RFTURN Cc 7% 
C Cc 75 
t 76 
5 FORMAT (/20%—" CONDITIONS FOR CHOKED FLOW AT MINIMUM AREA ' #/ ) Cc 77 
“6 FORMAT ~(/20X,* THROAT P/PO =',F7,4,3Xs°INLET PRESSURE =°,F8.3,°IP C 78 ~ 
STAD *o3Xe4P/PO =*sF9.4//20X0" EXIT PRESSURE =°,FRL3,8(PSIA) 3X0 9P C 79 
~~ 2¢PD ="9F904 / D c ao 
7 FORMAT (/20X—*WEIGHT=" 61 PG15.603X_ *PTHROT2! 461506593X5'PANIC2',G15 C 81 
767) Ba 
END C B3- 
—™ T"——" SUBROUTINE BNDRY ~~~ ~~ ae eras ; a | 
. D 2 
“~~ "COMMON 7DELTAS/ DX, DY sDT,DY2,DT2,DT4 - D «(3 
COMMON /SUPER/ R121560) dD 4 
M ° s ry , * 
______ COMMN /NERD/ MF NF NT sMUFF oLIMIT ys ne ORL TD. FON, 
COMMON /EROS/ W12296054)P (21960) DD’ 7 
__.._ MATA ZERD/O.0/ sONE/1 207 : as wa gto Po toe SED RB: 
COMMON /FRAN/ AD(60),A1(60) ¢BD(60).B3 (60) dD” 9 
DIMENSION PP(100) ‘ D 10 
c COMPUTE GUTER BOUNDARY PRESSURES = = = a aiess 7 _, 0 12 
———~ pn t K=1,60 7 ee so = D 13 
1 PP(KD =P IMF 6K) . ; cenere: Stee ee Ds 
c 7 D 15 
DO ? K=2,LIM(T . D 16 
= eKe2)* Ww Ks : 
X=X/S0(K) D 18 
aati DP=0.59(PP(K+L-PP(K=1)) oe ta ees ee SS Da Gy 
CORR=BO(K) #MP-AD(K) #X : D 20 
— "°°" " BUMF SKI=P (MP2 9K )+CORR canal bey Te. Pe eS D 21 
2 CONTINUE D 22 
DD FS K=2,CTATT D 23 
SOP<=SOP(K) D 24 
— """—" DINGLESONE+SOPK##2 oho. ey Soar eee tRpe ey. eee rae O 25° 
DANGLE=SORTFIONE/OINGLE? D 26 
~~~ CALL GRONK (ONEsP(MF eK) sRHOSVELZ EASY) = 7 “" Dp 27 
WOMF eK pf }=RHOFR IMF eK) D 28 
Fy Koc) =8HUERTAF SR) ¥VEL DANGLE R 1») 2¢F 
WOMF 9X 93226 (MF 9K 92)*SOPK . D 3D 
“TJ —WOMF 6K 94) =EASY*R (MF 9K) : BD 31 
DO 4 K=1460 D 32 
~s_" PPIKb=PIL KD a oO D 33 
DO 5 K=2,LIMIT D 34 
RaW Kecb*¥27WIL Ks 1) Ly) 35 
XSx/ST(K) : : . D 36 
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DP2=0.5e(PP(K41)-PPIK-1)) . 0 a7 


CORREBT (KD #OP—AI(KD®X ae as D 38 
5 P(LsKI=P(29KI4CORR O™C~COTTTT QQ 
c Ea cel es = ey pote Cs BS. _ Pe ae _ B40 
DO 6 K=2.LIMIT ae a a ‘O° 41 
SIPK=SIP(K) : O 42 
OINGLE=ONE4S IPKe¥2 0 43 


_ __ __ DANGLE*SORTF(ONE/D INGLE) eee AS. ete: phe ecencept 


0 

CALL GRONK (ZERD»P( 19K) sRHOeVELs EASY? 0 
WO 1 Kel }=RHOFR (LK) 0 46 

0 

it) 


"WAL Ke 22=RHOPRI DK IPVEL*OANGLE == 3 —  tC—CSsSSSC (NC 
WL eKe SISWEL eK e2)4SIPK 


3 Wlhek 4 )=ERSY*R(1,K) 049 

c — = seem = co eo -_ == rs me wee we mee me we is ewe — = _D - 50 - 
RETURN 0° 51 
ENO : 2a 9 “322, 


SUBROUTINE BOMBER (NAME KOOE} —E 1 
Cc E 2- 
—————BIMENSTON NAHE(23. Oi 
(diame i il — ——- = Paes i Saal a, oe ae See Eee OSES asses ae ews ETS eee see —ss. E 4 
WRITE (651) NAME(1),NAME(2) ,KODE cen: ee ae 
CALL ENDUDO teak, Cork! Sts o} sang - 2. E 6 
CALL EXIT: . > Se Ang, ee ee OE 
RETURN t —E 8 
Bl <r eC o 
c 1, —E 10 
~~ £ "FORMAT (/20X4 "BOMB-OUT “IN ° 92449 3X9 "CODE=*,15/}° Ct‘ te eh” 
Ba END ; = 7 ie — 12 
““"——"SUBROUTINE CARGIN” | 7" 7 i te oy oa ai ee cd val os, 
COMMON /SPY/ KCLASS eKGROUP .. F 2 
CALL MEMON, Sattater F 4 
READ (5,3) KCLASS,KGROUP a aaa 
WRITE (698) KCLASS sKGROUP F 6 
Cat PCLass F 7 
ON 2 K=1.6969 F_ 8 
"READ 1594,END=9)  KARD F9 
_____, sso €MDDIK=-1,50),NE.0) GOTO 2 FL 10 
CALL PCL6 F ut 
______ _WRITE (697) See dea te We SN eB tS ee dt eB ee SID 
1 WRITE (655) KARD»K F 13 
2 CONTINUE F 14 
=~ SREWIND S.-OO e 
«WRITE (696) Bo te tale, weston cornet me ae -c,l, Geo a _ F 16 
RETURN : ri i A 
es PFO I tl a oe a as FAs 
35 "FORMAT (1615) te aor oR LS 
4 FORMAT (2044) F_ 20 
“5” FORMAT .CLOX,20AG,5%015) |. F 2h 
:) _ FORMAT (2X.50('*")," END OF INPUT DATA ',50('#*) ) F 22 
7 FORMAT {18X—e" — INPUT DATA CARO IMAGE PROGRAM NO. SEROO142* #°) F 2377 
_. 8___ , FORMAT (/20X_e"SECURITY CLASS AND GROUP CLASS#=",159* GROUP=*,I5/) F 2% 
END F 25- 
SURROUTINE COVO (CLAP, VENUS »PUNTZ NASTY) Ci ad 
G2 
AT A GIVEN X-STATION. G 3 
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“t__—CDEPUTE DISCHARGE CUEFFICIENT-CD AND THRUST COEFFICIENT-VO0.  |.|.Ga 4 


Cc G $ 
“COMMON /EROS/ WI2L96004)—ePt21960) "66 
COMMON /DELTAS/ DX,0Y,0T _ A = sanets 6 7 

COMMON /NERO/ MoNeNTe@ MUFF OOOOOCO™~C~COCS — Soy Te 6G (8 

COMMON /SPOR/ $160) G 9 
“COMMON ZSUPERT Ri2l,60) SSO 

Tei Sheer 6 il 
NX=NASTY Sf Re an Pe Aa Gg oe ae. UP 
Ges, ; a . G 13 _ 

CDZ(WIM NX s204WELONX22099005 nn Gee 

VD=(W UM yNX 92) 482/WIMINX 1 OWL Le NX e220 2/Wi LeNXel D065 G 15 

UNE= NR DORTMNXD+PTL ’ ° . 

co P mo G 17 
[oya} Tl K=2,MUFF Ee SETS Sag tek wen. oe ee? SSR eR ew yee ea =e G 18°" 
CD=CD4w ik NX 92) a SM ER ha, NE et lee «dG 2 em. 

VO=VDFW UK NX e2)*#2/K(KeNXeLD G 20 

1 PUNE=PUNE+P (K »NX) #RUK 9NX) G 21 

; Ze 

SEX=SUNXD*DY9200 2 ar rt es _ 6 23 

CLAP=SEX*CD : : G 24 
—VENUS=SEX#VN GO 

PUNT 2Z=PUNE #SEX G 26 

c : G 27 
= SE ee ee 

c nae oe _& 29 
yee MENDES fo eg eS OO G&D 
= .SUBRNUTINE CHECK _ eh te ot a 

ta] 2 

Cc COMPUTE THE MASS FLOW EITHER AT THE ENTRANCE OR EXIT- H 3 

Cc PANZY < 0 EXIT PSIA GIVEN hn § 
Bs -gmeareaig enipoonerane rap emaaaiaa ree 

READ (594) PANZYsPZ,GAMMA < oo Wool 

~—WRITE (692) PANZYeP2eGAMMA ey ts ae aw ae a oe AS 

IF (PZ.EN.0.0) GO TO lL H 9 

= , . 

1 PSIA=PANZY H lL 
~~" PANZY=PSIA%144.0 tS apy See RE eS eee he A ER 

WRITE (603) PSTAsPANZY H 13 
oe 28 Ey hoe ae pare we eee gg 

CALL FIRST (PANZY) H 15 

L iW ~ 3 

c - H 417 
aETURN * oe ee ee pk ar ie 

c H 19 
oP Seeeeeeeietaaeietceeenteteti 2, re +e $$ 99 - 

2 FORMAT (/20X 5 *PANZYE® FLO c%) 3X0" P22° F105 302X0 "GAMMAS! oF 7, 3/ } H 21 

! ats oS ese ede 

4 FORMAT {6E12.0) H 23 
= END TTT oo ee re ee gS 

SUBROUTINE CIPORT (POeTOeOEN,FUZZ »PSTAT, TEMP,» VELeEASY} ae | 

TOT mee em ENPUT ” ComPuTeD : : ; 

c 
I dl a 
Cc 
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BES TRON ROR eee 


_c£ TO = STAGNATION TEMPERATURE ns __ tH? 
id DEN = STATIC DENSITY ype ie to eS es I 6 
=e Fuzz = STREAMLINE ——___ Sea ne eee Pe oe 

. I 10 
C Se ee ee ee Ith 
—~————EOMMON *LIMITS? VAIN OS 
_ COMMON /THERMO/ CPX(3>eCVXI329RAG I 43 
c I 14 
a CONTINUE = 2 pide tace OAs a .. FO 
2ERO=0.0 . ~~ oa Ses ee I 16 
C : 2 I 17 
= Ps ——— ——  r ? — — o-b a. Ge oh tee 
TzeT0 3S Beaetts LR ee I 9 
RHO=NEN a ae - a I 20 
FeFuzZ = 7 AS te tach COP ee WO Eee ae t AN eke 
oe 1 22 
RRATIOSRHOSRAGSTZ/PZ : I 23 


—&__'T = HANKYICVXsRRATIDSTZsRAG) — _ Seeseteeeneseeneeees OU 25 
Az=Cvxt1i 1 26 
_ALBCVX(2) espn ee wir bo sence! So, . eee 
"A eCvx dad . I 28 
X=RRATIO I 29 
7 RGASSRAG OOO aD 
eats SAF POWERZRGAS/AZ | foe we AT 2 ee Bh see ee ale 2 ee ee 
FUDGE=X**POWER I 32 
______. RARFEALSAZ po te hoe iene ah Bc te Me Bee os el hs 1 33 
TRAFZA200.5/A2 i 1 34 
1 35 
7 Let FIRST GU s 
a TZ. ae Soe ots i ae 
MO 2 K3ke5 I 38 
THsT/TZ ee ee ee eee Ea Oe Le OE Ree ME | 
EPAR=(T2-7}*(BARFS{TZ¢T IO TRAFD I 40 
XLAXZEXPIEPARD I 6t 
* TRAT=XLAX®FUD ba 4 
_C___ COMPARE “TRAT" WITH =TTZ" ple ced sue Fae 2 GC? 8 A eS 
TCOMP=THAT#TZ I 4 
__ERRORSTCOMP=T) 0 ee et beet ay Be 
T=TCOMP 1 46 
2 CONTINUE I 4? 
_ PRES=TSRHOFRAG ae ; 3 1 49 
eo : Sh thts ss ieee tienes Tot : §0 
Ee. 8 DH=HOTS(CPXeToTZ) dO 
VELOC=SORTF {(DH+DH) I 52 
VELOC <AMAX1 (VELOC »VMIND I $3 
HN=HZFRNtF 1 54 
_ ______€5HO*RHO-PRES RTS et | we 1 55 _ 
i 1 56 
o> 7s BST ATEPRES: =. «> 3-2 oo Se a See, i fhe Poe wisn ye Se ES: 
VEL=VELOC : 58 
EASY=E 1 54 
a | S| 5 as 2er Ta 


1 62 


es ee ee ce ee rr ee enee—e- rw ewe= ~~ serene sen te = od-eenun came 
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-" ein See ee ee 1 _63_ 
END 1 646= 
-,-___- SUBROUTINE CPEVAL ___ eae ee eee, ee oe 
Cc J” 2 
COMMON /CPDATA/ CP(3,8) »WTM(B) NAMES) J 3 
J ¢ 
____, DATA KRUD/ "PERF #/ 2a ae Fhe eae J. 5 
“DIMENSION X(B)—9 Y¢8) J 6 
C__._.CP ARRAY __ Ratt ed ape BR De EN ak om Ons a a I 
c 1- AIA 5 = 02 J 8 
c 2 - co2 6 = N2 J. 9 
“tt 2-o it-VW0 °° °°. 9 90 
5 ioe ee MOO. ee RE Ea eer ae aTEe aheree Oe RNS ESTOS | OK 
c : J 12 
foe ,INTEGERSS _LBMASS(49/*CP(B*. STU/LS 9BMAS*SS-—RITF 
+ LBMOLEIS9/*CPLB's*TU/L*s *BHOL', *E-RI/ J 14 
: » KGAMMAI4)/"CP/C's*V GA%s *MNA %y! / J 35 
Cc exe SET tee ee Gin Re chen tied nonias poe 7 2 J 17 
READ 15510) NOMEN, ADDA : et ew J 18 
__£ ; Bis th aS ia Sets a 308. oer eee co 
1F UNGNEN.NE.KRUO) GO TOS ; J 20 
DO 2 J=1s8 Jat 
K=2, 3 
Se 1 eer a 
c J 24 
BOG a isaac hay aa te pee eit ade aie 
CPL 1913=0.24009 J 26 
c : J. 27 
i Sm 9T>] (1 an a Sa 
_NCPSi90 — os __3 29 
Rol .98726 pe ud i. tor SP WB a ie ep a 
Ce . a i cn ce cere me a ee ee ee J 31 - 
CALL HEADS J 32 
_ J 33 
W , ae | 4 
J. 35 
Te. REIS 16e12ZY UK yNAMEI KY gWTMEK Ys ICP KIM Do JEL g 3) eK~1 5B) ~~ 36 
J 37 
we WRITE (69245 NAMESLOMASS ee Oy a |: a 
c J 39 
aD | 5 aS | ae 
AzJ-1 J 4! 
a ReASADDAD Ocoee: re 
T=A*100.0 J 43 
== OOK MBS. eel ce ep, Sa 
XIKI=CPUE KIFT#(CPL2 9K 4CP13 9K 9T) J 45 
c J 47 
" "T* WRITE (6083) ToMeT 0 0 Ba a J 48 
IF (MOD (dy5)sE000) WAITE (6516) J 49 
5 ~~ CONTINUE : sae ; J 50 
c J 51 
s 52 
__WAITE (6:14) NAMESLBMOLE J 53 
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~: 00 7 J=1.NCP J 55 
——1 AsJ-T ees gi Re es ow oo eS me pen ee eee ey ne Pail 1G 
ASASAODA __ tse Wis ee ee. 
t<A+100,0°. = J 58 
DD 6 K=1,8 J 59 
—FXUKIESCPL Te RIFTEICPU 2 RIOCPLSSKIVT)——COCOC~C~SSCSCSCCCCTCS;  COTThf ll 
ERE COOWTMU J 61 
5 ~——SCSCNTTINUEE Y J 4? 
Pe eR ee ee TY . eee = ee 2 ee See fe i at at 63 
WRITE (6513) TyXet J” 64 
IF (MON(J55).E0.0) WRITE (6516) J 65 
——Y_CNTINueE OO 
oe a a ae ore ee Pet ee ae ce Sd OT 
C oer gee a J 68 
WRITE (6514) NAME sKGAMMA 0 OF 
c J 70 
ON 9 J=1.NCP J 71 
S = Aedela 2 So ee ae og ge Te Ge Ser epee ee ee 
RAAPADDAM mt et ee ee I 
T=A¥100.0 J. 7 
c . 2° 75 
DO 6 K=1,8 Swe eh Me Te Ve gap ote ¥ J 767 
X(KISCPILKIFTSICP 12 KIFCP (3K ETD 3 77 
= 
FUZZEX(KI-R J 79 
VAM eX ZEUZE ee 
cee SON NN ee 
C J 62 
WRITE (6513) TeYoT J 83 
4 s s , 
c _ ree _____J > 
9 CONTINUE aaa ea a a “J 667 
c P c — J 87 
RETURN iF J "a8 
Cc J 89 
C F J 96 
pet es SE as Seren eee ete ee i ORL 
10 FORMAT . (A%,E16.0) J 92 
_ FORMAT 1" *,20X%—°CP OATA* //20X, *COEFFICIENTS FOR CP(BTU/LB.MASS) J 93 
L= FAT=RANKINED® //23X%o"MOLe WT e's 5X_*AOte LOX, ALOT 941 3X, A2MTAS2#) J 96 
12 FORMAT (/10% 61592 9A4 9 OPF10031P361506) J 95 
““T3” FORMAT (1OXsF8. 195%, 8F9e4 2%, FB. : | ma a | ar 
14 FORMAT, _1/12X9 "RANKINE' 8X96 1A4,5X)92Xe4A4/ ) ; J 97 
15 FORMAT (°15) J 98 
VO? FORMAT 08 8 Seo Geo hu es eB SOS: 
END J 100~ 
FUNCTION CSUBP (TEMP) ae | 
a EGHMON *THERMO? CPI3),cVI3) ge 
Oa tc ie Pht eg ee Ca me oe dais K 3 
CacPiLFTEICPE(2)4CP (3 )eT) = Sgr pes K 4 
CSUAP=C : kK 5 
* RETURN SS ee Se et ee ee ee eS aoc ed oe ee oo ee baat = K ~ 6 - 
C ~--------- x ? 
= = I41.U——  ———_—_—- cE 
= ENTRY CSUBVITEMP) 9.. 


| 
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a erereae ne eect rem eats ee a hc a Poe oo 
TsTEMP K 12 
__ CCVELDeTHECVIZEOCVIZIETR ee « 13 
. CSUAV=C K 14 
RETURN K 15 

ENO K 16- 
_ ____ SUBROUTINE CYCLE Usa oe | 
t 2 

______ COMMON /NELTAS/ OXeDY,DTeOV2,0T2e0TR = a 8, 
COMMON /DUPER/ HA(21),HB121) c lt 4 
COMMNN SEROS/ W121 560042 eP(21e60) L 5 
COMMIN FANG FU9,4),G1054) . [y r} 

___ COMMON /FURD/ WNORTHI4) eWSMUTHI &) eWHESTI&) »WEASTI4) t 7 
~~" COMMON /NAVIER/ DTOX,DINX2,DTOX4S, DTOXB,OTOY,OTOY2,DTDY4,DTDY8 t 28 
_ COMHOM /NERO/ MF ONF eNT MUFF LIMIT f Lt 9 
COMMON /STOKES/ £1601,8160),H(60) ut 10 
COMMON /STUPID/ FU22121~¢60) i 11 

U 

_c 9-PDINT GRID COMPUTATION SCHEME &-POINT AT OF/2 L 13 
¢ L 14 
_c [| See, Se Lt 15 
c L 16 
c NORTH 2 : u_17 

tee + = 2 oae - ba cen ee ne 
Cc” # WEST = 55~—CO EAST 6 2. 3 * 4 t 19 
Cc : tk 20 
Oi c ee > SDUTM 68 eed lk at et | tL ~ wwe. Ll 
c & 22 
c 1 2 3 t 23 

EP. spas ee ape ee ee ee a ee oe eee 
Cc t 35 
“—~"—~60 4 422, MUFF” Se yaa Ngee Ge Gur hnye t 26 
eee ses VRAD oe Se ee Ek Cont eee mete. gee 
7 aaa ae F “Lt 28 

00 3 Ne2.LIMIT L 29 

FAN=AIN 

EASTCAING) D9¥+H(NO2) ; . tL 31 

~~" WEST=AIN-1)8¥4B(N-1) Pg EEE Oe RE Se ea 
ANYR7AIN)*Y4*B(N} . ut 33 

~—"" FUDGESAENDODY2 7 ; pan a L 34 
YANKEE SANYR+FUIDGE . L 35 

=ANYR— a 

Cc ‘ o t 37 
“~"" CALL SNAFU (MeN) epee lL 4A 
ee t 39 

~ on 1 Kale © an CST Rg age Fe Ys Oe eer say Oe 
c L 41 
- FOS=EFTOeKI-FlGeRD U 42 
GR221G1A,K-GI2 5K) 29HN tL 43 
TT" FA2S(F IB SKIMF (29K) 2OANYB SF L 44 
c L 45 
Ce COMPUTE NORTH POINT ~ "UT UTT , ? ace Y L 46 
WRARE(WI MeN cK ¢WIMO) oN eK 2290.5 ut 47? 
= e - e a 

_. FYSCF (8 eKI-F (50K) OVANKEE Z Ll 49 
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v= *hI—-GI5.K) 9H 
___WNORTH(K } #UBAR+FX4+GY-FY eet 3 SS 
c L 52 
C____—sSOGOMPUTE SOUTH POINT itt Se oe 3 9 = SE 
~ WRARS(WUMy No K4W( M1 pNeKD28005 L . 54 
FX=(F644F (36K “FLL KD} SDTOXS L 55 
FV=(F(5,K -F(2,K)) *REBEL L 6 
_______ GY (G05 9K 9-612 0K) 8HN ets es Pee eared aeerstt _.. bk 57. 
WSOUTH(K }SHBARtEX+GY=FY a ae ee (° 5a” 
Ge Sede 9 OS aa TS, ae? Se EAST 
€ ComMPUTE EAST POINT L 60 
WAAR=(W(MyN4] KD tH (MeN K) 99005 lL 62 
FX=(Fl6,K)—-Fi5sK)) *DIDX2 * lL 62 
FYS(FIOSMIMFISSKOO*EAST kk OL 
GY=1G194K G13 9K) #HINOLD ’ L 64 
___. NEAST (4) -HBAR+FX4(GY+G82-FV@FH2)90025 0 
L 66 
c COMPUTE WEST POINT L 67 
WRAR= (WI MyN-1 9K +H MyNoK)) 40.5 t 68 
KEM US KDMFUGSKDDSOTOX2 kL 
FY=(FC7eKI-FCL SK) I SWEST : lL 76 
Ben GY=(GOTeKINKGULOKIISHON-DD 
1 WWEST(K JSHBAREX+ (GY+GA2—FY-FA2) 90,25 L 2 
c ‘ L773 
WNORTHCS)=WNORTH( 3) #D149( PIM N)+P IMIR) ) LT 
WSOUTH(3)2WSOUTHISI#OT4S(PIMNI+PCM=DoNDD __._L, 5 
WEAST ( 3} 2WEAST( 33+0T4*(P(MyND+P(MyN4L)? tL 76 
= WWEST(SI=WHESTIZ)4DTS*(P(MsNDEPCMsN=LID © AT 
tL 78 
CALL EVAL (WNORTHs2, (FUZZ( MN) +FUZZ (Mt) ND 990.5) 79 
———CALE EVAL THSODTHs TS UFUZZUM NDS FULEUM=L NI 80038) OR 
“CALL EVAL (WEAST 94 5( FUZZ (MyN FUZZ (MNO) 89,5) o a) 
‘eee EVAL (WWEST» 35 (FUZZ (MeN) FUZZ (Mg N=1) 80,5) L 4 
: L_ 8 
00 2°k2154 °° 7 Sop Win terey SoS ee ee B84 
FXE(F (4 KI—F(3,K)) #DTOX L 85 
FY R(FUZeKI-FClgK)ISANYR. TO OF 8 
GY=1G(2.KI-GU 1K) HN SFOn eee L_ 87 _ 
2 WOUM=1yN=1 SKI OW(MyNg KI FFX42 04(GY-FY) | uc L 688 
= WUM=LN<1Le3ISWCM@LiN<1Le SDP CMeNDODT ee E289 
L 90 
3 CONT INUE lL 91 
% CONT (NUE t 92 
ae Edpenins, --taicil hte Meta eg ti B IP SA dl eas a es ok 
CALL WEIRBO L ,% 
ea RE TURNE os a Es eA 
—NO lL 96- 
SUBRNUTINE NEMON 1 
~~~ TMPLICIT REAL®A(A-HyO-2} aga ~ : 2 


4 

I 

COMMON /APE/ 0110) sARONUM»WEEKDY»KOATE( 3) M 
REAL*R TWTFS(7) ' M 
* /* TUESDAY’,*® HEDNSOY',* THURSDY*’,* FRIDAY | 4 
K 

M 

4 


#7," SATURDY*’,* SUNDAY *,? MONDAY * 7 


INTEGER MONTH(139/ : JAN? FER*%,? MAR',* APR*,* MAY's* JUN! 


#, © JUL's*® AUG®,*® S$ , , ? 
__INTEGER SERK (129/31 9289325300329 309325 315 30,329 30031/ 
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CALL. GETWHO_{ ARONUM,XYEAR) reece, aan 
KOAY=MOO{KYEAR »1000) 4 12 
ne KYEARSKYEAR/1000 _ 13 
TE(MOOIKYEAR,»4) eEQ. 0) JERKI(2)229 a M114 
= KYEAR — 69 wm 15 
J = 1/4 ¢ L + KDAY M #16 
Lee MOOI 7) +1 8 OT 
WEEKDY=TWIFS(L) oe 4 18 
K=KOAY fi pe ere rei rere cere eee meee Sie Se es ML 
‘DO 1 Jel,i2 M 20 
a=J M 21 
F Ks LESJERRTID 7 N22 
1 JREKTJERKIS) a ; a elo fn cai W523 
"k=07 M 24 
DN sac ns BO 
“2 WUNTHSMONTHIMD : M 26 
KOATE{1)=MUNTH M 27 
KDATE(12)=LULU+ 1¥2564M : 
_kOATE(3)_ = LUSH + , 25641RYEAR/10) + + HODIKYEAR»10) Leith d. Penh _ w 29 
RETURN ened M 30 
a EN oes eke Boo gel, Poedecs tee ces has OS 
SUBROUTINE OOOOLE N 1 
COMMON /EROS/ W121 96054) oP 121060) = N 2 
MMON ZFLIGNR? WEIGH 
COMMON /NERD/ MF oNFeNTOMOFFeLIMIT - ee a 
COMMON /STUPIDZ F(21,60) a un 5 
; COMMON /SUPER/ R121¢60) een __ N68, 
“pAaTA ZERD/0 OZ ¢ONE/1 907781061 /0- 0075 SUREL/ Os Ol /:MMEL LARP CL2Y N7"T 
DO 2 J=2oLIMIT ee: 


~ REL*=(WEIGHT~XMASS(J))/ WEIGHT N 9 


00 1 Kel »MF at lea cette en RP nm eR ei he. de oe ey 
FACTER=R INDOLE (Kod) Nou 
IF (FACTER.EQ.ZERN) FACTERSHUGE. a feat N12 
EPAREREL/FACTER — N7 13 
IF (EPAR.GT eee Erberel sey N 14 
MALL oGTe ALL 

1 : WikeJolD=W(KsJo1}@(ONE*EPARD | _ N 16 
2” CONTINUE yo Ta SES Wee Fe oe gn ag he gps foes eae Ae 
CALL ROGUE N 18 
00 4 K=1,_,MF~ Sig Ray Pe ual write tees Meare] ON MS Sr SN ED” 
00 3 J=2eL EMIT N 20 

e = t] 
RHOeWIK ed el) - N 22 
RMAX=0, 995 *RHOMAXE FUZZ Se ee Le og mg tN ee 
RHOaDUMDUM(RHD sRMAX) N 24 
TT CALL FONKY (FUZZ sRHOSPSTATSVELSEASYe TANG) N82 
TANG=AW(K pd 30/WIK eS e2) N 26 
y CUTSNEONE /SORTE CONE STRINGER ON 
WIK eJol D=RHOFRI Ke J) N 28 
WiKedeZ2IEWIK ede LI#VEL SCOSN Oe ee N29 
WUK ede 3D EN (Ke J 02) * TANG N 30 
TO “WK ede SPMEASV#R IK eS) ne N 31 
3 PKs JaPSTAT N 32 
SS a ee oS, 
RETURN 2. N34 
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"SENDS ame atau ee a See 


SUBROUTINE ENDJOB _0O 1 
[0] 2 

CALL HEAD6 1 ese eins 0. 3. 
CALL HEANS 0 4 
CALL HEADLS Qo 5 
WRITE (601) = = AES FOR aay o 7 
“WRITE (852) ca 8 
WRITE (14.3) = a OL 
c Oo 10 
WRITE (14,46) Oo. 
WRITE (14.4) O 12 

¢ Rtg eae te pe ee ase ae ne es tuo be 
CALL EXIT Oo 14 

Sarees EUR ee ee ee OO MG 

C . Oo 16 
C é , 0 17 
1 FORMAT (°2*,40(°*'),* END OF DATA SET 6 °,401%6°) 5 Oo 18 
2 FORMAT (*2°,40(¢8*)e* END OF MATA SET 8 *,4009**) ) 19 
3 FORMAT” (925,400 *7," END OF DATA SET 14 *,40¢%e?) Oo 20 

4 FORMAT oO 21 

[(30x) Stee 6 © “Sed ""“eeess “sess — e esses” esse CY O 22°°° 
2 30x' & s &¢ © & s * 6s s 6 * 6 ** sf oO 23 

Xx 
& 30xK' « es *«* © & * 8 & s s*e¢ @¢ © wtf QO 25 

. 5 30k" Seece Sf SS” eee ‘eeeee “¢ “~~ ~" ose ° seset” este 8°)” O° 26 

ea END I ie A econ ee 8 nhs a ne ee ant Ne nw =) Fea 
SURROUTINE ENTGHA a Pp” 1 
COMMON /EROS/ W121 560 04) »P{21,60) . P 

N ol 

_____COHMON /NERD/ HE ONE ONT Cnet tol eee sas IW Mas 
COMMON /NiTWIT/” CLOWNe VULGAR Pp” 5 

deniers GRELG HERS 225 hE eso A 
WRITE (6.6) Lb Pp 67 
WRITE (6.3) : id 8 

i WRITE T695) P 9 
CALL COVD (CDT,VOT.PUNTZ»NT) a peed P 16 
“TF (LeNE.O) GO To 1 P oil 
CLOWN=CDOT 1 Stes ee as | eee 
VULGAR=VOT P 13 
1 O00 2 Kel.NF P 14 
ALL VD CAs8ePU of) ; 

a Ax=A/COT Z rent TE ee ee P 16 
AXX=A/CLOWN CoS es . : P” 17 
BX=A/VOT * _P_ 18 
BXX=B/ VULGAR ’ P19 
SUM=PUNTZ*+B \ P20 
THRUST =SUM*3.161593 P2r 
WEZA83 1415938320174 its PEh22 (oe 

WRITE (694) WE 9 AK AXXBoBXoBXXs PUNT Ze THRUST SR Spt Me ee bat P23 
IF (KeEDeNT) WRITE (657) fe can . 2  2e 

“S__ CONTYNuE a ” ara ae | 
RETURN P 26 


3 FORMAT (/20%s *DISCHARGEICD) »THRUST(VD},AND PRESSURE{PD) COEFFICIE P 28 
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YT NSE ON Me ee a ee Th ep pom ea ye oe eS ee ee 


_& —__ FORMAT (20% 9 2PG1405 pOPF1005 2 4X 0F 10059 4X5 1P56140591Xe12) P 30 _ 
5 “FORMAT (/16Xe*WF%e 11X9*WESWES* 9 OX, OWE/SWEL oe IXe*VOP eg LIXe *VD/VD8", 7 P31” 
LUX IVO/VD=L'.9Xe "POP OLIX*THROSTILBFI8Z) 8D 
“6 FORMAT (/20X%s* ITERATION NO.=* s15/) “p 33 
7 FORMAT ('+*,5X,*THROAT®} P 34 
END = 
SUAROUTINE EQUATE (K,JdeNERD) _ Boe « : : Q 1. 
~~ DIMENSION K€1)5 J02) Q 2 
N=NERD uv 4 
~—"" AN 1 LeleN CS att o 4° 
1 K(LdeJ(L) a) 
Tea NERETURNG 5 ge ee ee en EE ey 
END : ae o = «T- 
SUAROUTINE EVAL (AgISWeATED = ~~ a | 
c R 2 
—~——— COMMON "ZFANGZ F(9S47561994) “=a, OS 
Cc ‘ R 6 
DIA N ACS) 
— - — — - —<—<—<—< << = - sen = R 6 — 
7ER020.0, °° °° ©... pany Re ee a RS 
a. ETAATE_ pee Caan . a ae R 8 
a. Se i eae te Fe, Ce, Rie ee eee re R 9 
IF (A(1).NE.ZERO) GO TO 1 R 10 
= 
23sZERn _R 12 
“7 =.) PREZERG-. OO eg enn RES 
ope 3 GOO 18 oy Sa05h6 oo Beewss-tekicon he 
“€ vor ea : ee R 15 
1 CONTINUE R 16 
EMRE PDAULY = ee ge ee Be 
Z3=A(39/AU1) R 1A 
HOSHZERMUETAD ee R 19 ~ 
PRSHN*A(1)-A(4) : R 20 
TTT CONT IN TT ET RD 
FC1SWeL)=-A{2). R 22 
Wy2)o= * . 
FULSWs3)=-224A(3) . R 24 
———"" FUESMe4Ps—{Z24(AIS)4PRID sens a og 
GCTSWeL}s-A(3) i 4 2 — Rk 26. 
TT GEUSWeQDSPUESW BD R 27 
GUISW23)S—(23 4A 03 24PR) R R 26 
G Weohae TA + 
RETURN R 30 
— a Sat ee ae a nnn i een em 
SUBROUTINE FIASCO s 1 
—_ SUBR fe PrASCO toe ee ng 
COMMON /EROS/ HEME s 3 
9 
COMMON /SPOR/ $160) 950160) »SOP(60)»S1(60}ySIP(60),AREA(60) _ s 5 
———— COMMON /SEXX/ NASTIE,TOIOT™ “"$ 67 
DIMENSION X(21) s 7 
SGT Oe tee eg ty tiny oye . co, iS, 7 - ey $s 6 
DATA ONE/1.0/ s 9 
ee Se 1S. 
TF CNASTIE.LE.O) RETURN $ ll 
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c AL ane Nees NTs cs A IE Oe aa 
MCT SIP Cd S$ 14 
__XI{MFISSOP{J = =. Saas i a ee, A EE he Fi dan! § 15 
O00 1 K=2, HUFF S 16 
1 XUKIEWIK ede dI/WIK ete 2d S$ 17 
$ 18 
_._ CALL SMOOTH (X_ MF 93) nae ee $ 14 
C i $ 20 
NM 2 Ke2 MUFF Be Sette Poe acs ee toes lg” cee yee eee, BSA 
TT TNS KEK) eo ane ° $ 22 
RWURESORTF(WIK odo 2) OR 24WIK oJ 33882) $23 
=SORTFION ET VEY ry 
______s SN8CN¥TN y pane ghey Aeyis ak Diets S 25 
WiKeJde3)@SN*RWR $ 26 
a Wt eJ52)=CN#®RWR Feng, Cir Rate Pant . S$ 27 
2 CONTINUE S 28 
Cc $ 29 
NT Ns gs SO 
20 eset 4, Russe BD Me So SE : S$ 31. 
RETURN . S 32 
Bin oe Vn si —— tee Na ee Seay ees © ee _ S 33 
END S 34= 
SUBROUTINE FIRST (PP) T | 
2 
COMMON /ABLE/ AXU21920,AX(2102) | She . T 3 
COMMON /FLIGNR/ WEIGHT, PTHROT PANIC tT «4 
_ ___. COMMON /NERD/ MFQNF ONT MUFF LIMIT NASTY, = = 
c myx (S X=STATION INOEX. tT 6 
P=pp — 
oo AE MRIM ese OS ee ee 1 "8 
RETURN : eet 9 eres NA 
2 CALL AOMRER (*-FIRST--*,98) T 10 
3 CALL BOMBER (*-FIRST--* 597) aden : ' eet ke tn PAL 
4 x21 T 12 
Cc 7 tT 13 
ct TF JX T r) Lush= T T 14 
C1 JX= NF, LUSH= 2 iia Pate wed tnt - Fie fe tated AS 
5 LUSH®{NF=2¢5X0/ (NF=1) . T 16 
_____ D0 6 Kal MF tye Pater eee te te : tT 17 
> X=P9AX (Ks LUSH) T 1e 
SLOPE=AX(K »LUSH) T #19 
S CALL HUNTZ (KeJXekeSLOPED ©) ON OOO 
Cc Papers : T 2. 
BLIVET=xXMASS{JX) T 22 
_ WRITE (6083) ALIVETsIX 
T 24 
IF {BLIVET-WEIGHT? 7,73 T 25 
c ; YT 26 
TO SKBNFORSIX nT 27 
LUSH=3-LUSH ; T 28 
_.___ WEIGHTSBLEVET a ean ote oon et Ss Fed a . = ee Tt 2¢ 
7 XLOW=PTHROT T 30 
XHIG=PANIC T 31 
Cy -_o M.S ee ee ee ee Hee 
____90 11 XOUNT#1920_ T 33 
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= + e 
SNCF Boa BN Pa a I, ee a AS 
00 & k=l,MF tT 36 
PIDOLESX*AX{KeLUSH) Seats _ 137 
SLOPE=Bx(K»LUSH) — — ae ” T° 38 
8 CALL _HUNT2 (KeJX,PIOOLE »SLOPE? T 39 
T 40 
___ SEX=XMASS¢JX) a ee Se yf ee ea Pe Te Oe LE T 41 
ERROR@SEX=BLIVET T 42 
a FF GERROR? 909910 Sheed 2) wh. cca at 
. T 44 
9 XHIG=X T 45 
= f0005 °° © ee ee ee 
2) 08s MUOMSY), pt ee Se SS T 47 
“HY CONTI NUE 7 4s 
= c_ ——— = wom ee ee es eee es oe we a . . - =s «= = T 49 
“¢ TEST FOR MASS : T 50 
RELERR=ERROR/BLIVET T 51 
W be eSEXe * 2 
T 53 
~ RETURN’ lS OS eee Cet ha Pa ee Se Peas 4, T. 54 
— T 55 
~ —————ENTRY ~DDRNT EES POs ee z rr ne a {- 
F P=pP T 57 
.. 12 JXENF eae ae ee aS Ger jon. ok, BF 
60 105 aaa ee, hee ee eae IB 
-—— ee ee a ee eee — =«<s=—= - ae — T 61 
T 62 
13 FORMAT (/20X%~ TH MASS moreso bo BX aL SHAT STATION NO.3.I3 / ) T 63 
20X-e IN Sel3e2Xe Bs ° Xe 
LLUTE ERROR=" 4 E1546 ¢3Xe1 7H RELATIVE ERROR 25 2PFB.6,2H s/) ; _ T 65 
END 1 66- 
as SUBROUTINE FONKY (FUZZ sAHOsPSTATs VEL, EASY, TEMP) oe 2 a 
INPUT COMPUTED v2 
Cc U 3 
U T $s OF? U4 
Cc fF = STREAMLINE VALUE . ues 
“C777 RHO = STATIC DENSITY . : vu 6 
----- Owen wenn nnn nnn een ne us? 
TT TIT" COMMNN /STAGS ALBe 23 eCPLSe2L De CVISe2R Do WTMIZRISGAMZ(2E},RGAS(22), Ui 8 
LPZE[AL sTZEALeHZL21) vu 9 
* J 
Cc vu it 
“E--—-aNTINUET : Aare Nhe whines on ee : mo oy ae 
ONE#1.0 Uuo13 
ZERDS0,07 00 ee sie ro go Uo s147 
c : vu 15 
=————__ Farge Te 
DeRHN uiosn? 
a a a a . -- oa 
IF (F.EQ.ZERO) GO TO 3 ' u 19 
“"" “TE ({F.EO.NNES GOTO 5” ~ °° pre TT Wb 28 
IF (F*{ONE-F).LE.ZERO) CALL BOMBER {*FONKY',1) Uo2i 
X=F*20.0 uo 23 
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ea a 


ONG LT SNEWR Yo UE 
2ex-O1GIT : U™ 26 
Fl20NE-F2 es haat _U: 27 _ 
TOOT ENEWK VSD ET 2B 
KsJ+1 Uu 29 
i] a RE TS aa aaa amas | Ger |, Tl 
POSFLISPZISIOF20PZIKD Lv 8 
TORFLSTZ¢ J) +F26TZ EK) i U 32° 
Cc sl ie aa ee tee tg en ere rere eee __ LU 38 
60 2 t=153 : Fan are U "34 
CPXILBFISCPIL p JIFF29CPIL K) Z u_ 35 
~ CUXILI=FISCVIL a JIFFOSCVIL oR) U 36 
2M 2 CONTINUE soe So nae ee a MSE 
C u 38 
RAG2FLOAGAS(JISFZEAGAS(K) OO 
60 TO 7 uU 40 
c vu 4} 
ONTING U 
DENY at os ea ee a a 
TheTWZOY U 4% 
ON 4 L=1.3 eae UL 45 
CPXILIECH TLD? : : ¥ : U 46 
‘ CVXILd=CVIL ed) : u_4? 
ry NU 
c we ha ' u 49 
—~RaGekGasiiy——SOSOC~C~‘<;3FHTCté<CSC;é;é‘<;7;3 ST! U 50 
Oe ea SE 
° U_s52 
5 + CONTINUE U $3 
= TY 
TO=TZ{21) : oh, be U 55 
eC s1.3, ... ee oo W856 
CPXILI=CPIL 21) U5? 
EV XD SCVIE ZIT oT 8 
6 CONTINUE U_ 59 
= U 
GO TO 7_ d Paes Rea eeee | ar |) Gee 
C ae ae Us 62 
7 CONTINUE : a Scorn AY PER 
ete — = ery U 64 
CALL CIPORT {PO eTO.D oF, PRES», TRANK »VELOC,E) U_ 65 
SSS as 
PSTAT=PRES sae _ Ue 67. 
TEMPSTRANK OB 
EASVSE eS. 
VEL=vELOC U 70 
u_ Tt 
UAN 2 
Cc 2 ait eet ene pas tt re! ___.u 73. 
END : ae U_soT4e 
SUBROUTINE FREAK (PRES eRHO oUUe VV e MY oNXe POs TO eOEGe To XM, VEL 2GAM) a | 
z INPU COMPUTED v2 
c v3 
TC NMMON FZCOUNT? LelL OO 
COMMON /NERO/ HF pNFeNT 4 v6 
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COMM UP ) 
COMMON /THERMO/ CPK(3) sCVK(329RAG __ vo? 
é COMMON /STAG/ AC By21)eCPU3e2i dy CVC 3e2k bo WTMI2L DyGAMZI2LDSRGAS(21) Vv 8 
v9 
Co eee wenn nanennnn-= - v to 
C vit 
ZERO=0.0 Vv 12 
(er wes . ee ere oe 2. 8 oe ee oe —~s seuss oe . . Vv 13 
PePRES vows 
gp RERADY ee ee As, oe Een Ae is foetus Boe a Ms CES! 
UsUU ¥ 16 
V=VV Vv i7 
M=MY Vis 
ct NN a ee ic ae Rade os Vv 19 
Vv 20 
FUZZ=FZ(MeN) dr) paces, 8 vo 2k 
O=Vee2eUee2 Vv 22 
Cc Vv 23 
C COMPLUITE STREAMLINE PARAMETERS Sa Vv 26 
as OO Bee MP ners ts Coe fk Be : v.25 
J=K Vo 26 
____F2SR2Z=F2(Kade dd Se, e+ Oy ENE ZT 
FIl=F2(KyL)—-FUZZ vo 28 
LF (F1%F2.GE.ZERO) GO TO 2° Vv 29 
1 CONTINNDE SD 
c —_ = == = re nee ee ee eo a V 31 
~€ FAIL 10° FIND “STREAMLINE Vv 32 
___CALL BOMBER ( *FREAKe oe % el) vo33 
vet eh? 53, 
2 CONTINUE vo 35 
=FI+ Te 
FL=FL/SUM v 37 
F2Sb2sSMi . O e  gy ge ee ee ee ee ee ee eS OR 
RAG=F1L*RGAS ( J-1L)+F2eRGAS( J) vo 39 
a ° PaaS ey ot - Vv 40 
ON 3 K=193 v4! 
—T"EPXIKDEFLSCPTR, JL F eet iK, sy) CCSC™COCSC“‘“CNNNN#CNNTTNSOSCOSSC 
8 CV KIKDSFLACV IK JL OOF29CV(K edd ee eed S| 
3 ™ CONTENIE WV 44 
Cc Vv 45 
———" TEMPSP/(RSRAG) © TT TT ees see se 
TZ=TSTAGICPX s TEMP 2Q) ; Vv 47 
=PSTA PX, stlePs ? a 
c Vv 49 
~~" FANGSV/U Fg ee Vv 50 
RAD=ATANF( TANG) _..._.. Vv 51 
"—"" DEGREE=RAD®5 7.29578 ES EET BD 
SEX=CSUBP( TEMP) Vv 53 
enn “HEX=CSUSVIIEME?SCCCCCSSSSCSSCSSSSSSC“(t a 
GAMMA=SEX/HEX Vv 55 
—"———" S0NIC=SORTF(GAMMASRAGOTEMPS — —— NOCOOC“W”C*CNS*:C«S5G 
VELOC=SQRTFIQ) v 57 
—" XMACH=VELOC/SONIC 7 one Fe vy 58 
c vo 59 
SO a ee ea ER eT a op ee ra ea a OOS 
PN=PzZ v6) 
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Soe OBIE cfs ee ee oe Ey See eae a ee Po | awe epee 


OEG=DEGREE —_ _ 63 
TsTEMP a a =a a EEE Vv 66 
_ ¥M=2XMACH, me Be A en ee es vee we ¥ 6S 
~~~" VEL2VELOC Vo 66 
GAM=GAMMA Vv 67 
Cc cS oir 
RETURN net Ale Aa eo é v 69 
ee fae ee en eC TE ore : wi 8 
_______ END 2: . Pade. IN Pa ticpt dn ROE se. 2 ee, ee 
SUBROUTINE GRONK ¢{FUZ2,PP RHOLVEL EASY) Ce | 
W 
t 
ae F = STREAMLINE VALUE AND PP = STATIC PRESSURE Ww 6 
ae aT ies w 5 
C ____ INPUT 4 6 
7 TG FUZZ 2 STREAMLINE INDEX w 7 
c Pp ss STATIC PRESSURE w oA 
_c¢ RHO = STATIC DENSITY —s_ : : : w 10] 
CC” VEL” “= VELOCITY . woul 
a z mo Ww 12 
COMMON /STAG/ AlGe2E) oCPUSe2l do CVE3e21 De WTME 2D DeGAMZ(22)eRGAS(21), W 13 
UPZ(21>,T2021) Ww 16 
wW 
_ COMMON /THERMO/ CPX(399CVX(3)0RAG - He 
w o4uf 
6 Cw Sasa eseansseaeseesee) 3c PWieseotcoa eee) ce w 16 
w 19 
FeFuz22 W__20 
SS ae aa 
c : RP Shh Fak i A treed a Oe eae fe oats ae Ae ete hy he a Ww 22 
QNE21.0 Ww 23 
aij CEROSO OF = ith re oe a eh ee ce, ec ee aes ee oo Eee 
wo 25 
"JE (F.EQ.ZERO? GO TO 2 Ww 26 
e s 37 
1F (F*(ONE“F).LEsZERO) CALL BOMBER (*GRONK*s 1) nm _ Ww 20 
Cc ; w 29 
x=Fe20,0 Lvs ae ee eve Ae Ww 30 
NEWKY=X w 31 
DIGI T=NEWKY Ww 32 
2X-DIGI - W 
FRSONE-F20 0 ; wen Ww 34 | 
JaNEWKY+1 . w 35 
K=J+1 Bion ee Ee piel de Bee tid PS Bhan: _ W 36 
POSFLEPZ( JD 4F29PZ2(K) eG ah! w 37 
TORFL STZ 03 4F2T2(K) w 38 
, 2 * w 39 
DOO Vm gD oe Na ee Se w 40 
CPXILDSELSCPIL gp J IOF20CP EEK) : Ww 41 
_ CVXCLISFISC VIL eJIOF2Z0CVILeK? = 7 W 42 
1 CONTINUE Ww 43 
RAG=F1 SAGAS (J +F2ORGASIK) W464 
GO TO 6 Ww 45 
2 CONTINUE Ww 46 
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TT PUSPETT 


Tostz(yy 
DO 3 L133 uw 49 
CPXILISCPIR SE) SO. 
CVX(Ld=CVIL GL) wo 51 
3 CONTINUE W_52 
RAG=RGAS(1) W 53 
rhe an 2 ATMO Ne ree oc Ra ernst ea RE eB ls ete gle Am nce a 
ry CONTINUE Ww 55 
PO=PZ(21) 
TO=TZ(21) Ww 57 
NO 5 L=1s3 . W_ 58 
tre steite2al) CTT. 
CVXILP=CVEL 21) Arig eestor She ae estes _ W 60_ 
~S__continue SSS ? Fa W 61 
_ RAGERGAS(220 nw? 
GO TO 6 ase W 63 
c se W 64 
=6 CONTINUE = eC ee ee 
sg CALL TROPIC (PDsTOsPsFeOENeVELOCeE? Ww 66 
4 67 
RHO=DEN : Ww 68 
Tae SAVEERVELOG:-— en ee me ere, OWE BG: 
EASY=E W._70 
Ss a | ae 
c Ww 72 
7 ENN eg ye Pn pee Po ek er “W736 
egccans FUNG TIONS HANKY, CA SPANEV ST OSSRGR a ek, 
x 2 
O(MENSION ACL) x 3 
AL=A(L) tee x § 
Or hisatar Sage, ee ee aa See ee Soe a ede a, Oe 
AZ=A(3) ee oon eee ee: 
: » eS eo ee En 
X=PANKY x 9 
oo ER Ge Oe a ee A ep et MOL 
: RGAS=SAGR__ . : x 1k 
oo ete misao ce a ats a a 
c xX 13 
"" POAWERERGASSA LT nr en Lg 
FUDGE=X**POWER x 15 
——— sRARFSAIGAL 0 ee ee eS 
TRAF=A240.5/A2 x 17 
= To me ee ae oe ee ayer eee Re Aa 
c LET FIRST GUESS FOR T = T2 x 19 
= T=T2 ACT eae ee ee Te ee wee hy 20 
NO 2 K=L55 x at 
Nel. ee ee eee 
EPAR=(TZ-T)*(RARFS(TZT#TRAF) x 23 
~—"" XLAXZERP(EPAR) orm mm seme eens rn ir.) 
TRAT=XLAX®FUNGE : xX 25 
"T— «COMPARE “TRAT® WITH @TTZ® "OT ; xX 26 
TCOMP=TRATSTZ X27 
OSE RRR I nn 
T=TCOMP x 29 
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es Cm (| | 2a | 


HANKYST ae ¥ _ 3 
—=+ — SS SSeS x” 32 
RETURN , pidge tiie irik ee Sab fay OME EBS 
OND an ee a SP A ee X 34- 
SUAROUTINE HORNY ae | 
vy 2 
__€ ___ ANNULAR NOZZLE seit a_i 
tC COMPLITE THE STREAM FRACTION BASED ON 1-0 GEOMETRY. v : 
Y 
“COMMON 7NERDS NNT ®MUFFT STUPIO/Fi2i, 60) /SUPER/RI 21660) e. Y° 6 
COMMON /SPOR/ $(60) 4S0160) oSOP(60) oS1160).S1P160) -AREAC60) v7 
CALL _QREZ (Fl260) 0 ch Y 9 
y 10 
CALL_HEAM6 See peewee Me I 
DO 2° J=1eN ¥ 12 
FIM» JI=1.0 : Y 13 
ROGER=1.07AREALJD Y 14 
ae __00 1 K=2,UFF bat Oy A Ret: geet, fs Ni MSs on, 
LT Fiks SIGIR Ke JPHRi Le JI IFERIK OUI-RI1, J) ROGER . ¥Y 16 
ARETE (693) Jo lF Ke dD oKaD eM) eG Et matali, edna 5 ct dee ences Nn Ee 
2 CONTINUE ¥ 18 
RETURN ¥y 19 
c —<—— + a ee a . Be wee cms ew we er oe ee Y ae 2 — 
ys FORMAT (1OX4 15520 LLF 1004/1 7Xe LOFL004/) Y 22 
__ END : Y 23- 
FUNCTION HOTS (CP, TSTar,tZERd) CC  ) 
Cc z 2 
t COMPUTE THE ENTHALPY DIFFERENCES z a 
Cc HITZERO) = HITSTAT) = HOTS 2ehe eee ercaee 204 
Ct WHERE CP= Cetiy + cetZoet +” Celsvetesze” cae eae hai 
Cc 2 6 
DIMENSION Cell) CO 
Cc zZ 8 
a oS i 0 a ay SE - ae 
B=CP12)#0.5 Bae es eRe __ 
C=CP(39*0.3333333 2a 
Co hon PI ap Se re os 
V=TSTAT z 13 
X=TZERO - 2 16 
=zixX—¥ > +BR(X4 Us +> + 
____HOTS=H Pr kf oY Ni Baseball tte, Ds ere eee z 16 
+ eae en ere ee eshasih sae fy ehh ——-—-- 5 47 
ce RN a oe ee ee 
—~oO z2 19 
END Z 20= 
——————SuBROUTING HUNT 
COMHON /SPQR/ S160) »SO160) oSOP160),SI1601»SIP 160), AREAL 60) aA 2 
COMMON *NERO7 MFANFANT 220200 PA a pare ee AR ata 
ein OO BERD ONE oo. a i A & 
S(K)=SO(KINSIIKD AA 5 
1 AREALKISS(K E(SOLKIFST(KD) bh OG 
L LE= 
SMALLSAREAILD es . : AA 8 
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“BOS RsaNF OO 


___IF (SMALLLESAREA(K?) GOTO 2 SO 
SMALL=AREAIK) AA ll 
’ UITTLESK oe rio te ian) Fal Ao BRR wid 
2” CONTINUE aa a = AA 13 
AGONY=SORTF (SMALL) AA 16 
ALL HEAD AA 
WRITE (6,4) LITTLE 9SMALL ,AGONY AA 16 
a “WRITE 165) Eee ap ae ae ee : “aC AA 17 
_00 3 K=2,NF : roe ; ears aa 18 
‘i AGONY=AREA(K)/ SMALL Roam adel okie pee EE ag a Ee eS IG 
SNAFUSSORTF LAGONY-) AA 20 
WRITE (6e6) KeAREAUR) gAGUNY c SNAFU AK 3Y 
3 _ CONTINUE PN TISRE ek et LR SECU ae SORT ANS a AA 22 
“——— NTELITTLE © ; AA 23 
Jp RETURN en a SS ek ee ee, 2, RR OO 
C AA 25 
c ‘ AA 26 
ry 
____ ERADIUS ='sFLO04 / > gas = Cae ae wey, x OARS 228 
5 FORMAT 1733X_ "AREAS  L2KyPA/AS* LING ERIRGY / ) . AA 29 
6 FORMAT__(20%01553F1504) ae = «2 AA 30 
END AA ,3l- 
SUBROUTINE HUNTZ (NY eNX»PRES » SLOPE? AB 1 
c GIVEN THE INDICIES (NY oNX) COMPUTE THE “W™ AND “P™ ARRAY VALUES. AR 3 
CNY = ORDINATE INDEX" “AaB OS 
c NX = ABSCISSA INOEX aoa oieads a OF, 
coco ae Dee ite GaSe, SASS oS te yes gah ~23 3 in 6 
COMMON /ERNS/ W(21 960.4) 9P 121.60) ABO? 
9 e 9 * 
COMMON /STUPIO/ FI21960) aB 9 
COMMON /SUPER/ RI21,60)> 05 7 TU me ae 10 
COMMNN /SPOR/ S160) »S0160)»S0P(60)»S1160) S1P160) ,AREA(60) __ AB 11 
“COMMON 7NUPER/ HA{21),HB(21L) © TTT AR 12° 
c AR 13 
Sos 2s EAR rae 
c AB 15 
ayy re tre ere re ee eee eee aR ee 
K=NX ap 17 
PPEPRES. SOs eee eS We Soe ae An 18 
FUZ2=F (39K) an 19 
COSIN=SORTF(1.0/(1 .0+SLOPE#*®2)) ARB 21 
Qe eet hie iS A = _. ta oo 
c AB 23 
————“C ALL GRONK “(FUZZ ¢PPVRHO,VEL PEASYS OT a 24 
c AR 25 
WIERHDFRTI KD 45 25 
WV=W1*VEL AB 27 
————w2envecOSIN Oem AR 28 
W3=W2*SLOPE AB 29 
——— FWSEEASVSRI DEK) OE Sn oe By HOTS AB 30 
c 4B 31 
TTT WT eK el PEW 
Wd eKo2daW2 AR 33 
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WiJeKesbaw & 4 
WED eK 4 2 eS les AB 35 _ 
P{JeK )=PP : AaB «36 
se a EE A i a a oe ee ee A Be, 
RETURN AB #38 
‘ AA 39 
END AB 40- 
_. FUNCTION HZERO CETAD ; eae AF je ac} 
ac 2 
_€____ COMPUTE STAGNATION ENTHALPY FOR STREAMLINE VALUE ETA _ : ac 3 
c - af 4 
COMMON /STAG/ A18e21)9CP13 521) ,CV13,21) ,WIM1 21) ,GAMZ(21)AGAS( 29), AC 5 
[ deo de i 
¢ ac 7 
TT" GNEZT.O FN Trt yt ‘ ac a” 
ZERN=06.0 ac 9 
TO HZERDEHZE2EY : ac 10 7 
X=sETA ac ut 
NelDeUNE? URN 
__YF (XeLTeZERD) CALL BOMBER {*HZERD',1) 7 ac 13 
LF (X.GT.ONE) CALL BOMBER {*HZERD*,2) 7 . ac 14 
X=X#20,0 ac 15 
- ao NEY Rites S tater, 6,0 Were > te Se tas fh Zev ee ey 
R=N ac 17 
R=X=R ac ie 
aeeeeens F2=R aA, ee a, pe AR ee. el ee Se, SAC RIP! 
FIsONE-F2 ac 20 
_ HMHDSHZIN#DISELOHZINGZOF2 ; - ise whee te: F241 
HZERN=HOHN ac 22 
c AC 23 
UR L 
a eee Ses 5} Gh, Sap *Padidin, dv, Grete alge cs dnt beth detec sdinay rat of o eh ae NG ee. 
END AC 26- 
_._., SUBROUTINE ENETAL ne nk aD 1 
aD 2 
' COMMON /CNUNT/ LeLL aD 3 
COMMNN 7NERD?Z MF YN NY sMUFFSLIMI T,NASTY ry) 4 
COMMON /TYME/ T,FLIT aD 5 
————"" COMMON /FUBAR/ Fly F29F39F4sF5 : ~ aD 6 
aD ? 
—-— 109 woke lee Od etek | Ve bebeseaelS, bie = % a 8: 
LL=0 AD 9 
2 a = PPO fo fe ee Se eT ee ee eg ee ee Oe 
eee ee FLITSL . — . =e -— mee ewe oman e me mee oe AD i . 
ZERO=0.0 . aD 12 
READ 6502) KE sK2oK3 KS —K5S ado #13 
WRITE 653) KE gK2eK3—9KS_K5 aD 14 
Fisk! ad. 15 
F2=K2 | AD 16 
SAESEK3S , nave Ty Soe ke eo. ly _. ao 1? 
Fa=k4 4 an 18 
= ES eo ag es ees ce ptncie eee tradat Lee ad 19 
ad 20 
SUM=F1+4+F24F34F44F5 aD_2l 
TF (SUMSEQO.ZERO) CALL BOMBER CFRITO* el) AD 22 
Cs... ; } AD 23. 
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9 9 , , 9 9 
Oo re tee a ee A 
FL=Fi/SUM AD 26 
af =. UR 2BR2USUM Co oe ot — Se a i oe th CADE OF 
F32F3/SUM aD 28 
F40F4/SUM AD 29 
Foers/SuM AD 30 
Ot ete es crest) Rte a es ae A Sige! ga : AD 31 
WRITE (604) Fl, F2,F3eFSeFS aD 32 
——$—$—$—— = = oe . a STE 6 8 RE er ee AD 33 
CALL NAVSEA AD 34 
CALL STAGG * aD 35 
CALL SYATIC AD 36 
CALL _HORNY = ad76 AD 37 
——~—“€ ALL” BEOLAM Fe ee Oy ey ge ee ee ~~" ad 38 
_ CALL_CHECK A _ AD 39 
"pd Tksz VAT “—" AD 40 
1 CALL PHINOU {K)> AD 41 
LL K : 
CALL OUTPUT AD _ 43 
= oF PGR Sgt ee eee sy AE 
RETURN . aD 45 
er ae 
C aD 47 
“f FORMAY ‘Tlol5) OO MO ee 
3 __— FORMAT = 1 /20X 9" INTERPOLATION FAGTORS*//20X,515 } AD 49 
“4 FORMAT (/20K,1P6G15.670 07 me mms AD «60 
Fas AMEND yt peta nd ee ee a a rr eet ml Pie OY SOLS 
FUNCTION LIBARY {(SORFT) aE 1 
SORFT=0.0 4E 2 
So BARN SO ye eo ma 
a RETURN pane Ae 4 
a a eT SE mn Eg 
ENTRY COSRF{X) AE 6 
COSRF=COSTX) AE 7 
RETURN 4E 8 
C * E : . 
ENTRY SINRFIX) a— 10 
TTS ENRESSINOX De AE LT 
RETURN aE 12 
-¢-— ee ro : ays eas ee ee 
ENTRY COSFIX) aE 34 
RETURN " aE 16 
cc: pte Se pe Sens ee ee ee Mon ol ‘ : AE 17 
ENTRY SINF{X> AE 18 
— SINFsSINIXY TTT TKN" AE 39 
RETURN AE 20 
Se! eo ee ee eS ee cele 
ENTRY TANF(X) AE 22 
ta" FANFATANIXD™ OOOO es . “" "BE 23 
RETURN . AE 24 
cae AE 25 
ENTRY SORTFIX) AE 26 
=06 ee ee 
IF (X.LE.0.0040) RETURN AE 28 
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RETURN Be So, 4 ee es RE 0 
ln ee AE” 31 
ENTRY ATANF CK) _ aE 32 
“ATANFAATAN( XY SSOOOOOOCOC~CSOTOCNSS oe ——— AE” 33 
RETURN AE 34 
ENTRY DUMOUM(XsY) : fe mac rag FRE 8 aR 
oe “DUMDUMEY ST ge are, ES ee, c ” AE 37 
. TF UXeUTe¥S) OUMDUMEX 8B 
RETURN : AE 39 
c tetebebatateteteted AE 40 
NTRY TANDF(X) AE 4! 
WORGH=X/57.29578 
TANDF=TAN(WORGH) - AE 43 
a RETURN aa Set Rae ee oe sa”, WER OS 1 
ENO AE 45- 
SUBROUTINE LINEAR (TARGET sXsNASTYSFLleF2eJ1,J2sNOCON) .°. AF 
aF 
c TARGET = INPUT VALUE Gyce AF 3 
— KO STS” MONOTONIC ARRAY ———sS—— 
c nasty a" NO. OF "XtSH ot legnte teat, WEE 78 
eC” Fl 6 #2 = ThE LINEAR” INTERPOLATION “FACTOR “ANDs AF 6 
C Jl & J2 = THE " INDICES, SUCH THAT: AF 7 
2 ) + 
c NOCON. _= NO SGLUTION CODE BP ce a else! pa ae Cie ne AO 
= Ito AF” 10 
OIMENSTON X(RI A 
eae erat arereteretaenetarl AF” 12 
ZERO=0.0 AF 13 
AF i46 
NOCON=1 ate. 4 antes se Be ee ts 1S 
IF {NXeLTo2) RETURN AF” 16 
_NOCONS2 a Pern ceeds ee ee eT ETS a SRS IIR | py AOE 
IF {NX.GTe21) RETURN AF” 18 
. AF 19 
NOCON=3 AF 20, 
_GLSTARGET@X0L) et Aid Pee oe A ORT 
G2=X{NX)=TARGET AF 22 
SSUM=G24G)000 ee ee eee . AP 23 
IF {SUM.LT.ZERO) RETURN | AF 246 
ON 1 K=25NX AF 25 
ar gehts ge 4a fo = —. et.) Oy Se ae es 
G2=TARGET~X (K-12) _ AF 27 
- “Glex(Ki-TARGET™ OO BE 
IF (1619G2).GE.2ERO) GO TO 2 as AR 29 
~~" CONTINUE Go ev ew po eS ee mee ota eS AF 30 
NOCONS4 AF 31 
RETURNS A 
c ; . pee AF 33 
=o NOCONSS rs re, Pa eto wae eee Me Fy NB 2am 
SUM=G1+G62 : AF 35 
“TF (SUASEDSZERO) RETURN AR 36°77 
NOCON=0 AF 37 
a oS) 55 es Ya |. 
_F2=G62/SuM AF 39 
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Nisdeto op at re er eae ee ee en | AF 40 

J22J oe eee Ya TOT 

RETURN AF 42 
___.___ END : bMS cane) ce uate et as Ores se AF 43 

SURROUTINE MAINP aG 1 

Cc : aG 2 

OMMON L ° oD. ? ? ry 

: COMMON /COUNT/ Lolt aG OS 

“ COMMON /NERD/ MF,NF ONT . ° . aG OS 

CNMMON /TYME/ TeFLIT AG 6 
cr I be eee ee TD 

READ (574) NOSEG»NDIT 9K »KREEP aG 8 

K. .] ’ 

_1F (K.GT.0) CALL RESTOR at ee eee ; 4G 10 

~~" TF (KelT.0) GU TO 3 yo ee AG il 

IF (KREEP.NE.O) CALL MEYER : ; AG 12 

i ais AG 13 

CALL HEANS AG 14 

AG 1 

_____ K®NOSEG*NOIT - $e aice cha athobimesion, orn Poot : ; AG 16 

WRITE (605) NOSEGsNOIT SK . AG 17 

__ 1F (K.LE.O) CALL BOMBER (*MAINPROG' SK). . ; AG ‘18 

c AG’ 19 

CALL SAVEWP aG 20 

__. GALL PLOTP_ ; at oh. © a ; _ aG 22 

CALL. SINK Oe ms Dy aG 23 

: _ 09 2 K=1,.NNSEG 2 aah ; “ik. Sahoo aG 26 

C" Mag SE Ngo mg Op ge ti, Ay fo Tit AC ee AG 25 

00 1 Jel eNOIT aG 26 
=T+ G 2t 

LeLel AG 28 

ve ERE, ato ee at ape pe tae Ee BOE AG 29 

CALL RESET AG 30 
=~" CALL CYCLE ~ ~ Deg A SAV ey Ge! OP eee gee eee ee aG 317 

: CALI RESET oe AG 32 
= CAC ANURY, ee 

CALL HONDLE . AG 34 

eee RE ee pre, eG B85 

CALL FIASCO aG 36 

“CALL STREAM © ~ 7770 Tt ; . AG 37 

CALL RESET aG 3A 
ICKY a ae ee 

c : aG 40 

2 ~~" CALL OUTPUT = aG 4) 

CALL JINX AG 42 

"Gos; ge Se et ne eg) ES Noche pene ee” a, BAG, we 

3 CALL STORE AG 44 

RETURN AG 46 

GR oe Oe OTN gee es. ee yr gy fe oe a Vig HON: ANTE AG 47 

c aG 4A 

Wee ae ae gee a ee ; oo ee “ aG 49 

4 FORMAT (1615) A $0 
e * LAD CFE) ° eo BYOTS, Sky ice) 

1OTAL ETERATIONS =¢,15/) aG 52 
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ENO AG 53- 
oe _ SUBROUTINE MAXIE (XeNDEX) . a. YY 
Cc “FINO THE INDEX OF THE LARGEST VALUE OF ARRAY “x®, AH 2 
: _QEMENSTION XL) ATS SY sch Ln OPE, by oe of. ween . 4H 3 

N=NDEX AH 4 
Ja) AH 5 
TF (N.LE.1) RETURN AH 6 
Se oe __ REG=x¢2) = ; AH 7 
NO 1 K=2_N AH BB 
___ TF t(fIGsGT.XIK)) &o Tar, __.. ae ee | ee oe 
~~ Jak Aid 
BIG=X(K) AH 11 
CONTINDE AH 12 
NOEXed AH 13 
RETURN’) (Ee ee a ee ep eee US a oe SAe le 
AH 15 
“C.., ‘sueeen: 2 ee a me eo ape : ~ aH 16 
ENTRY MINNIE(X »NDEX) AH 17 
H s 
Sl AH 19 
i  AMENDEM- 2a aye ee oe AH 20 —~ 
r IF (N.LE.L) RETURN | ae ee eee -_ n #3 AH 22) 
“SMALL=XTITY” : AH 22 
M0 2 Ks2eN AH 23 
TF _USMALLeLYeXINS) GO TO2 CAA 
——s om J=K _— mee ome co ae eee - - . . . . . AH 25 - 
SMALL=X(N) AH 26 
2 CONTINUE, Jae Me ts A) EBA 
NNEX=J AH 28 
c AH 29 
RETURN OOOO AR 
END ee Sc rg et oes, i SA he 
SUBROUTINE MEYER JAD 
Cc THIS SUBROUTINE RESERVEO FOR COMPUTING A FREE PRESSURE BOUNOARY. AI 2 _ 
oe" RETURN : . Al 3 
END a Al 4 
DIMENSION X¢1) AJ 2 
“To NEN , . Pees gg es a. 1 en ie 
AJ 4 
“TDA L K=2eN 7 ar AJ 65 
1 X(KD=DUMDUM(X(K=1) KK)» AJ 6 
TURN 
END ° AJ B= 
~~ SUBROUTINE NAVSEA AK 1 
Ci) Barks 135 . . Reyes (AK? 
7 COMMON /FRAN/ AO(60) -AT(60) »80(60),81(60) Seer AK” 3 
COMHON /DELTAS/ DXeDY»OTeDY2,0T2¢0TS AK 4 
~~ GOHKMON /DUPER/ HAC2}}eHRielL) AK 5 
COMMON /EROS/ D160¢4) eHAT(20) -KODE(4) 9SOYOX(60) Ostet AK 66 
“COMMON /FLEX/ NFLX : ak OU? 
_______ COMMON _/NDEX/ INDEX{9) 5 ee EA deck e hey me AK! ABS 
“COMMON /NERD/ MF» NF gNT@MUFRGLI MI TyNEWKY" AK 9 
COMMON /SPOR/ $160) eS0(60) SOP (60) 251160) SIP (60) ,AREAL60) AK 10 
COMMON SUPERS RT21,66) aK OT 
COMMON /SEXX/ NASTIE,IOIOT AK 12 
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Cc BE nee sth RO __ aK 14 
———~€aCe OREZ 18,360) AK 15 
___ CALL OREZ (0,266) _ AK 16 
READ (5,18) ME.NF SS geass ee ee ye aK 17 
READ (5520) OX,DT AK 18 
W 719) MF, aK TS, 
Cc : ak 20 
“LL PSITSNFe1 ge foe a en ee we Ge PY hoe ee we ee AR ONE 
MUFF=MF=1 AK. 22 
WEWKYSMIFEST AK 23 
DY=MUFE AK 24 
—--— DPYSUNESDY ee ee ee A 
OY2=0Y40.5 AK 26 
"= OT220T*0.5. Sy a ae ng ne em me yee RR Oe 
OT4=NT2*0.5 AK 28 
~———WRITE 16512) BT,0X,0Y  — a ee yt ty “ aK 29° 
READ (5-23) [(D(K 9d) 530154) eKGl yNF) aK 30 
LL U eDy 
c AK 32_ 
ENTRY HOAX Ra ba eg Vay phe ranean, a ke eS ARS ae 
WRITE (6910) ak 346 
“WRITE (65913) ” Sn peor ee ig er ae et SARE SS 
WRITE (6534) (KeSOUK) pSOP(K) oST(K) oSIPIK) sKyKOl NF) AK 36 
BUZZ=MF=1 AK 38 
"FUL ZEONE/BUZZ AK 39 
O00 2 K=1,MF ak 40 
= Fl=MF-K OT eae RO a ye OA ea, 
Ha(K JSF1/BUZZ AK 42 
=K- * 
HB(KI=F2/BUZ2Z AK 44 
rae 1 J=leNFo 0 OO™O™~™OOT sees aK 45 
RUK oJITEFLPS I 1d I+F29S01 3) HF UZZ : ee CK 
2 CONTINUE AK 47 
AK 48 
Fe 
_.__ WRITE (6915) : ak 50 
a On 3 J=L.NF See pit ee pa oy tit oh, os ae “ak 5} 
3 WRITE (6921) UolR (Kod) Kal MF) AK 52 
nce a re ag 
CALL HUNT . aK 54 
Te aN re I ee ee 
READ (5518) NASTIEsIOIOT AK 56 
“" FOIOTSMINOCIDIOT NT) Eaters AK «ST 
HF (NASTIEsLT.O) NASTIE=NT AK 658 
~~" “"WRITE (6916) NTSNASTIESIDIOT oT" AK O59 
CALt HEAD6 AK 60 
er ne — —— ee eR OS 
WRITE (6,510) AK 62 
“= WRETE. (6617)... eee eg ea em? AA: S63 
K=1 AK 64 
“OOKEOSON ee ree ee ee “7 7 ak 65 
N1K=0,0 AK 66 
—  QWEGIR=00e0 ©. a 6 
DEGNK=0.0 - AK 68 
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WRITE 16,22)_ KeXeAREAIK) 9S(K)eSO1K). 00K, SOPIK I yDEGOK,» oSTUKIsOIK,SIP - 70 


TK) »DEGIK a) 
po eee he ee A gt eet eh ae aK 72 
EPAR=0.5/Dx aK 73 
EPARDY=EPAR*DY ? AK 7% 
or 10 4 Ka2eLIMIT OOOO AR 
_ . SDYDX(K)=S(K) SEPARDY Ws Sant! Ses : 2 “AK 76 
DIK={STEK+1)-SI{K=1)) SEPAR : AX OTT 
_ OKs (SOK +1 1-501 K-21) SEPAR ae penal Musial teemutstctn inn MARC STB Se 
DEG IK=Z2UBERSATANF{SLP(K)) SS ak "79 
OFGOK=ZUBFR*ATANRESNPIK) D AK 80 
X=(K-13%0x aK 
a WRITE (6922) KX pAREA(K) 9S1K) pSOLK) 9 OOK» SOP(KI DEGOK» ST(K1y DIK, SIP AK 62 _ 
“~1(K) @DEGIK AK «83 
2 WA CONTINUE: 9 et I Lid adheres, THAR. YBSe 
K=NF AK 865 
X=(=-1)*0DX AK 86 
BIKE AR 
O1K=0.0 AK 68 
DEG IK=000 ee _ : pi aK «89°” 
ee DEGOK=0.0 AK 90 
AO WRITES (65227 Ke XgAREK(K) » SUK SO{K) yDOKy SOPLK) sDEGOKs STK)» DIKeSIP AK 91 7 
11K) MEGIK Ak 92 
EO 
00 5 Ke2,NT AK 94 
“TT NEL XSK=-T 7 srg me py eed gee a ey A oe SAR OR cy 
Pen. IF ( SOP{K)-SOP(K=1)) 5956 Stet old eal al eta ee nat AAR, “96> 
S$” CONTINUE” ——CSC;7CS a a rae AK 97 
6 WRITE 6021) NFELX : AK 98 
_ CALL NAVSTO a® 160 
Se eg OT ag SG a ne, TOL 
INDEX (1) 92 nae _AK 102 
INDEXt2)=4 eg ee Gee eS yy AK 103 
INDEX (3)=NT<5 AK 104 
NDEX (4 Y=NT= z K 10 
= _ INDEX (5) =NT=1 AK 106 
“INDEX(6)=NT —  ——OO~C~—OO——CCCCTCTTT..C™™OO™OCO AK OF 
== LINDEXCV)SNT#2 eo =a Se _. AK 108 
“——~"“INDEX({892NT43—0°° °° 7. aE aK 109 
INDEX (9) =NT+5 AK 120 
K 
Cc COMPUTE ANGLES. , : AK 112 
7 “OOF REL GNE TI SEE ES ET AK DD 
BOCK =ATANF(SOPIK)) AK 114 
TT" BECK SATANF(SIP(KIY  SOOOCOCOCOCC NW AK BS 
7 CONTINUE AK 116 
Of 8 Ks2,LIMIT hf sy Td AK 118 
~ "AO 1K =SDVOX (KI FIBO(KAL -B0TK=195 Sag AK 119 
es _ATUK)==SDYDX(K2*(ATIKL <BI(KoL)) = er oe C1 ee 
8 CONTINUE Sas Se AK 12) 
DN 9 K=2eLIMIT AK 122 
BOR ESNYDKIRD FSINRFIBUIRIFBOIKI) OCOCOCOTCNCNSCOARR SSD 
BIUK)=-SDYOX(KIMSINRE(BIIKICOL(KI) AK 124 
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Cc eu ee i et ARS, 
RETURN AK 127 

( ante ane. speaks tire 1a clas ee eee BOOT TT ak 128 
Cc AK 129 
10 FORMAT (/20X,* NOZZLE GEOMETRY * # se AK 130- 
ll ORMA X,! t AK 1 
12 FORMAT (/20X5 "DT "ats 3PF1De4e* {MILL TSECONDS)° 9 5X, °Dx ‘= ,OPF9,59 3% AK 132 
1'DY 3°,F9.5 } AK 133 
13 FORMAT (/36X,°SD' el 3Xe*SOP ol 3Xe*SE%e13Xe9SIP'Z DAK 8 
is FORMAT € 520X915 92K 04F150695X_15/) } AK 135 
15 FORMAT {(/20Xe"*R™ ARRAY’ } AK 136 
Té FORMAT T720X,* THROAT INDEXINTS w%,¥3,4%," LAST FLOW SMOUTA =",l3d5 AK 137 
_ 14X."LAST PRESSURE SMNONTH STATION =*,J3) 7 AK 136_ 
TT FORMAT 6 26X¢ * Xo BXe SAREA® 0 7X0 9S 9 BXe 9SO%, bXy *OSO/DX"y5Xe3HSO% POX, AK 139 
1 1GHSN1ID De 7TKs 9SE" eo 5Xe!DSI/DX® phXe SHSI* 6X, GHSTPID) / AK 140 
18 FORMAT (1615) AK 141 
19 FORMAT (/20X%0'NO. POINTS ON VERTICAL LINE( ME )=*,13,5Xy'NO. OF WAL AK 142 

IL POINTSINF) =*e13/) aK 14 
20. FORMAT (2E22.0) Bs «dee acta ge “EC en Sov rel ~ AB GISS: 
ar FORMAT (10X15 92K el 2F94/1 TX012F904) AK 145 
22 FORMAT ¢ =SCLOX,ISs5XeLIFLOLS/) 9 oe cece AI 146 
23 FORMAT (4615.0) . ; AK 147 
END AK 148- 
———STBROUTINE NAvVSTO TSSCSCO.L.FTFFTFTTCOCS”TSTTC*AESSODd 
c ; . ; : : Ce eaten! AL 2 
4 cr VM emer a Oe Det eri Fe at 3 
A CNMMON /DELTAS/ DK.DYeDT : 4 
~~ COMMON “/NAVIERZ DIOX, DIDXZ,OTDX4, DIDXS,OTOY ,OTDY2,DTOV4,0TOYS a 57 
COMMAN /STOKES/ A{60).8(60).H(60) 6 

° ry e ° e . 

al 8 

ONESi.0" 0 ee ie ape ae GAL te D 

c 7 AL 10 
“TT OMEN TAD On mmm mmnnre ssn ses sss A ae 
OTDK2=0TOX80 «5 : AL 12 
DTOXB=OTNXS90.5 AL 14 
TDI OVEDT SOV TS AALS OSS 
DINY2=DTOY*0.5 AL 16 

~ DTDY4=DTDY2%0550—— oma at are 
DTDY8=0TDY4*0.5 AL 18 
GH eee te wie Re ee ge ange © pet = —— —— “heehee 
‘ OO 1 K=leNF AL 20 
~~~ ACKISESOPUK I<SIP(KIIJSUKS nn (ar) a 
A(K)=STPIK)/S(K) AL 22a 
oe “WERK ZONE SS(K 5 SS Se Tee AL! se 
1 CONTINUE AL 24 
Go ASS ae Se Pe a ee eS a ee” ee eS 
. 00 2 K=2,180 AL 26 
27" AIK SA (K SD TDY2 Se ee ha ae ee oe a A OF 
AL 28 

METORN eee ene nn ene aE AL 129 

Cc AL 30 
——tN, . 1. ee ee eG eT 
SUBROUTINE NORMAL (X,NEROD AK 
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RAL NV 
___ DIMENSION XO, 
N=NERD AM 4 
_ _ . _ SUN=0.0 mh RS tg Bk on a ee Sa, eo en 7 ae 5 
DN 1 Kel~N am 6 
1 SUM=SUM+X (1K) a T 
TF (SUM-LE~0.0) RETURN — = —i" 8 
eee eG ee eee eee : aoe tens oe AM 9 
2 XUKRP=XOK)/ SUM ' aw 10 
_ RETURN the Pe na BIN hes Ye ho ie ea et Oe ps we tn A Ul ys 
ENO AM 12- 
SUBROUTINE OREZ (X-eNERD) AN 1 
__ OFMENSION XI) _ treme te 235, aN 63 
= at SSS ne ee eee RK 
NeNERD AN OS 
Sy See ONENGRD: ne) 8 tg Rinne are ahh 2 aes 
OO 1 KeleN aN 7 
Cc i AN 9 
oe S-RRENURNGC 2 >, a nn ee ey ye ee ee et es ORNS OY 
c 2 os ake . aN ll 
Rae (SS "SENDinge sg a = : AN }2- 
SUBRNUTINE OUTPUT . . 40 1 
~~ ____.COMMON _/COUNTS belt Oh Face a ee Fag ee ag SEY NS eh feet dt ao 3 x 
CONMON /NERD/ MF ONF NT ao 4 
Cc.  . TA NL aE ee ee eS eee AO: 728 
N6=6 ao 6 
N638 a0 7 
NF 
wht UD 8 hh he ao 8 
40 10 
NO 2 Kel eNF an ii 
oS GALUSHERD6 ee re eee fang pe 
CALL GROG 1K) an 13 
a 
DO 1 J=1.MF Re ce Fe grat tat 2 Bae ao 15 
“2 CALL PLINE (9K sN6D 0° ~ OG Re a erage e (eye ee ao 16 
c es SO thet ie Ec ad, win beet Beast tas Fae a Aa 8 ao 17 
“27 ~ CONTINUE AO 16 
c ao 619 


c ae ee ee ee ee Coe —s oe eo ow ee - 7 = me =o - An 21 oe 
c WRITE OUT AXIS. AO 22 
eens. _CALL HEADS a = oye Oh Aes Sos ao 23 
WRITE (Ae53 L = ao 24 
c an 25 
<== CAEL FROG a ae ee ALT eg ae ae 
=. 1G 23 : Oye ie ee, eee = 7 AO 27) | 
DN 3 Kel, NF AG 28 
_ 3. CALL PLINE (1K N@) bee ted ene, MOY 280 
c . Ao 30 
c WRITE OUT WALL. 40.31 
aO 32 
ence GREE HEAD Bn : see Goa ROP BS 


240 


AE DC-TR-73-29 


WRITE Ta;6) CL ; 46 34 
ae lng as ee Ree a Fe Ft ROSS 
CALL FROG AO 36 
DO 4 K=1,NF a0 37 
4 CALL PLING (MFAQKGNBD) © ao” 38 
Cc AO 39 
=> RAUNT  AOL eo 
Gs Se See Pana ste Oe vB re Anne Dc ct ti As AO! SOE 
c AD 42 
5 FORMAT. (/20Xe"AXMIS ITERATION NO@",15 / 1 8  ~— AO 43 
$ FORMAT (/20X,"WALL ITERATION NO@',15 / } AD 4&4 
END AO 45- 
SUBROUTINE PERABUSK 7 SV 03) , AP 1 
IMPLICIT -REAL®B(A-Hs0-Z) mr _ AP 2 
"OL MENSION “Sk¢(1)5S¥C1)eSi1) °C” ee i ee ape en AB 
$(L>) = = 0.0 AP 4 
To 82a eas ee es BBE a 
$(3) = = 0.0 ae 6 
"  -MIig@USRURS ho Ap ee 
X2 3 $X{2) AP 8 
——— & = .6hCS0 0 oe en eee Tee aa et tee BE Le AP 9 
Flo= Xl = x2 AP 10 
SS hake RS Se ES 
F3 2 X3 —- X1 . AP 12 
TT - Dassklseoses ee ae OS 
"__IF (D s&Q. 0.0040) RETURN AP 14 
TT OM TS “AP 15° 
SNM SO ee 
Y2= $¥(2) AP 17 
v3 = $¥(3) -, AP 18 
. s 
Y2 = Y2*F3 hls AP eu 
yas yaerFD—~———..........C O 
S$(1) 2 DA(VIOX26x3 + Y2exLex3 + V3exKLex2) Vs ap 22 
—« SC20 = DEC LSTK24KS) + V2ECXLONS) + V38IKIF: a aaa AP 23 
$13) © O*(YL+Y2+¥3) AP 26 
RETURN 
END . : AP 26 
~———~ SUBROUTINE CLASS” Ee ee re ee Cen Re ey Vie el See. Ole SAOe a 
COMMON /SPY/ KCLASS,»KGROUP ad (2 
—"*INTEGER#6 = JERK(3.9) POU mn en mem nmnmns ag 297 
* ‘%UNCL®» tba Ee oeteDe AQ 21 
a, eee 2 ECREs "Toss! f ¢ AQ 23 
————"DIMENSTON M43) Tee oe A en Pe Re cee ae eae HAR. oy 
CALL EQUATE (MeJERK{L XCLASS#1 953) AQ & 
CALL DATE (KOAY @KYR) 0D oon nee ag 8 
RETURN Ag 6 
‘ ENTRY PCTS oe = eee Oe 
WRITE (651) M YX: a :) 
———— “WRITE” (6929 ROAYSKYR  KERGUPGH ooo oa 
RETURN ad. 610 
= ST ENIAYOCLO...5)-  . Do ee) RT ay AO 11 
WRITE (8,1) M ao 12 
’ ? 7 ? omnes \: ae © 9 
RETURN See ee ee ee et . . AQ 4 
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——— ENIRAtSs ee ee 


WRITE (1491) M AQ 16 
WRITE (1492) RDAY. KVR RGROUP 9 7 Sipe eo “ao 17 
RETURN AQ 18 
eR nt EN ae Bo te ee ee = io 
1 FORMAT (120 5T58918( 98+ 9/7580 907 9 F759 °# 1/7580 18 1,3AG,T7T59%"s = =€0 20 
oi Bty etme PS 
_ 2 __ FORMAT (ore DATES? 9135°/%s 12,758,181 80" )/9 GROUP',12,T58,9e%, T AO 22 — 
175,'**/* ARO INCe’sT58y°* %e3Aby® °/° ARNOLD AIR FORCE STATION, AQ 22 
er ge Oh ZTENN oo T5Be*#hoTTSe9¥9/TSBotRIPGhD SP AQ 26 _ 
END AQ 25- 
SORROUTINE PHINOU {NXSTA) AR 1 
ry 
_C____ COMPUTE THE PRESSURE CORRESPONDING TO & GIVEN MASS FLOW © AR_ 3 _ 
Cc SUBSONIC REGIME AR” & 
Ge ie ee oy oe a Rae doth Ale ai 13 Crk oe, Geos WARES GBs 
COMMON /NEROD/ MF NF NT MUFF LIMIT AR” 6. 
COMMON /FLIGNR/ WEIGHT» PTHROT »PANIC aR? 
A 
ae wpe TARGETEWEIGHT 2. satel set he TAR D: 
a NX=NXSTA AR “107— 
: IF CONX.LE 20) .OR-(NX.GT.NF)) CALL BOMBER (9PHINOU'SNX? === AR 
a XLOW=PTHROT . AR 127° 
XHIG=PANIC aR 13 
Y On 3 KOUNT=1,20 = Wieec a adnenn’ oca® eld ; aR 15 
—~~"ys (XLOW#XHIGI¥O0.5 eens RE 816: 
CALL SETWP 1X )NX) sara gt te Me Ape ee RE 
IF (XMASSINX)-TARGET) Loled AR” 18 
1 XHIG=X aR 19 
_ 2 LOWER _ AR 2a 
3 CONTINUE AR 227 
c : ns 7 : os AR 230 
RETURN 7 Pa Gre a te SP ee ee AR 24 
ENO AR 25- 
"SUBROUTINE PLING (MYsNXeNUNIT) |  * AaS dT 
___ COMMON /COUNT/ Lott =n Bes eS ot es ee SS 
COHMON /EROS/ W(2156055) _ as 3 
__ ____ COMMON /SPOR/ $(40)9S0(60) SOP (60)9S1(60)9SIP(G0)eAREA(60) AS 4 __ 
COMMON /STUPIO/ F(21460) as. 5 
COMMON /SUPER/ R121.60) ‘aS 6 
MsMY AS 
a___.N=NX BMT te caces wine Sas ceo Ae pat he poy tien. * MASA GBs. 
NU=NUNIT as 9 
ee PWNS a NS IO 
W1SWIM Nol) AS 11 
W2=W(MsNe2) A 2° 
W3=W(MeNe 3) as. 13 
WGEWEM ND AS 
RHO=WI/R(MYND AS 15 
Usw2/WD = 2 a Shae ent Sark ioe VG, RG 
“—— VeW3swT ” ee Paap cane? AS 177 
CALL FREAK (P»RHO U,V oM oN oPZERO,TZERO eDEGREDT XM VE! GAM) as 18 
= MeN) 1 
__. TF (NUWNES6) GOTO 1 _ , &S 20 
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ee BOWER oe BEAR TS Ale “ase - AS_ 22, 
RETURN AS” 23 
1 CONT INUE (AS 24 


TF (NUNE.8) CALL BOMBER (*PLINE's1) 
WRITE (8592) NoFUZZ oW1 oW2 oW3—eN4 oP > Te XMe GAM» RHO U,V, DEGRE,PZERO, TZER 7: 26 


RETURN as 28 
a weeeee eee eceeesscceeesesoos ~~ AS 29 
ENTRY GROG(NASTY) AS 30 

~ ~ N=NASTY . FH Fas Oa nse Soar, “aS 31° 
WRITE (643) LoNoST(ND SOUND SLL aS 32 

Ww ° 

___ RETURN 7 AS 34 
ENTRY FROG Sip sya + Ne ie Se ay oe I . i aS 35 
WRITE (B94) _.. AS 38 
Faso 7@URETURNG copa 8 ee oe oe Cer eG Ga ees ty et ON Gage SG AS 37 
Cc 4s 38 
2 FORMAT (3Xo15e2kvdPPldcdsaXelP lol oe 5 LOXe1POGL5e57 F as” 39 
3S FORMAT §«6(/20X," ITERATION NOom?s 14_3Xy *X=STATION NOom 9 I3e3Xe"¥-INN AS 40 
LER =" 9F9.493X9°Y-NUTER 3%5F9n4,5X_ OUTPUT NOo @°,15 / } aS 41 
4 FORMAT 111X%_ "STREAMLINE BOX e WL yp DOK ey H25,kAK, "WI og LOX, "W4°VLD AS 42 


1X9*P=STAT" LOX," TEMPIRS* ¢7Xe*MACH NO® /15Xy*CPO/CV' 4 OK, *DENSITY', 11 AS 43 
2K" ol BXo PV" olLOXe "FLOW ANGID) 7X _*P-STAG',10Ke*T=STAG' sg TXe"VELNC AS 44 


y' ) aS 45 

_END At ‘ AS 46- 
“SUBROUTINE PLOTP ~ a) aT 2% 

| - = - - = - es -. oon AT - 2 
€ OUTPUT PLOT PRESSURE OATA ON UNIT 10. at” 3 
c AT 4 
———TOAMIN ZAPE7 LURIDice?y)~——C~C~C~CCC::CCCCCCCCCTTCSTSTSTTTTCCO 
COMMON /COUNT/ LoLt at 6 
———— COMMON /DELTAS/ DX Toms ay 7 
COMMON /EROS/ W(21,604)9P (22060) : aT 8 
————" COMMON /NERDZ MYNX RD Ra aa ee og ee eT a AD 
COMMON /SPOR/ $(60),S0(60),S0P(60),51(60),S1P 160) ,AREA(60) AT 10 

? . 

Cc at 12 
“WRITE (10) CURID © Sik poK ee ry ey ee gee ea Ge ene PATA S 
WRITE (10) ReSOeSTeOXeMY eNX_ aT 14 

~~ RETURN fe OES Se A> 3? on rr, i 

Cc Seienetatebaatabatatatababptatetemeebetetatete AT 16 
"EY Jn OO aT 
c aT 18 
“""—" WRITE (10) Le? : AT 19 
RETURN AT 20 
een net seen ne tence eee ee ee er as 
ENO AT 22+ 
——"—"SURRUUTINE PRIN (PMY OO 

c AU 2 
=C “pZ" "ARRAY SEARCH FOR MINIMUN VALUE =» PK 7” 7 Vig Ay ieee au 3 

Cc AU 4 
= COMMON-7NERO/—MFNFGNT i ae 4g ee oie WAU” 25 
COMMON /STAG/ MUGy21) CPEB 421) 9CVE3¢21) +WTME21) sGAMEEZL I) RGASL2I¢ au : 

ry a 
Cc aussi 
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PZ ED att Se sl a ee AU AO 
00 1 K92,MF c au 1 
= TF (X.GT.PZIK1) XaPZ(K) ee ed eee Ate  thastaed aM au 12. 
I CONTINUE AU (13 
id au 16 
PAK A 
ee eee Fie OD Oe ee Od ee ee AU 16 
RETURN au 47 
6. Se ero a oad er ORT CRP OR Beye Nee MO, aS 
ENO : Aly 19- 
BURT CN PRAT (XMACH,GAMMA) avo 
P7P (MACH a 
she _X=GAMMA/ (1 .0-GAMMA) es rime eh : av 3 
PRAT=(12040.5¢(GAMMA=1 .0) SXMACHOS2 1 OX rey ee av 4 
_ «RETURN Pee iaee k ‘ ; oe; av 5 
END) = cor nee ue On. aa Se . av 6-" 
FUNCTION PSTAG {CP ,TSTAT»TZEROePSTAT»SAGR} aw 
[7] z 
-~ — —_ m= . ws . - _ - - — of aca - wee - AW 3 ~ 
cpzeceii cr 82 aw 4 
oe _CPa=CPi2)) ee . : . Aw OS 
CPB=CP (3) AW 6 
Cc AW 7 
ee Mee ee a ee 
Rh ET EROS a es sai . _ rT a) 
PePSTAT AW 10 
oi, Sa ARGASSS AGRA a se cd ee AN TD 
c aw 12 
RARFSCPA/CPZ : AW 13 
75* wi 
ee mm ms er me ee i re ee -—- -—o— me AW 15 -_ = 
TRAT2T2/T ~~ : ; aw 16 
_____ __ POWERSCP2/RGAS - Ane ee ee | ee be 
* EPARS(TZ-TlL¢(BARFe{ TZ¢T) @CTRAF) i is 
XLAX=EXP(EPAR) . 
Ser 
te __PZERD=PRAT OP : ws NOS yee a Pe es ce AW ON 
> ° AW 22 
fe _ PSTAG=PZERO : Seta oe. kk Pare 7 au 23 
. AW 26 
RETURN is aw 25 
Too ERD a 
__ .. SUBROUTINE PUNTZ (NY eNXsPRES) Fy ate he ax 1. 
COMMIN /EROS/ W121 56054) oP {21 960) aX 2 
CNMHNN /NERD/ MF NF NT MUFF LIMIT ; es) ee 
~~ "“COMMON /STUPIO/S FI21 960) (re — Ax 4 
COMMON /SUPERA R121,603 AX 5 
COMMON /SPOR7 5160) Ve ° ° ° ax 
_, COMMON /DUPER/ HA(21)HR(21) = % AX 7 
J=NY ax 8 
K=NX :. ax 9 
PP=PRES* Ax 10 
FUZZSF (9K) ax il 
* SLOPE=HALJ)®SIPIK)*HB(JI®SOPIK) | AX $2. 


__ COSIN=SORTF (1.0/1 1 0*SLOPEC@2)) 


» 
- 
= 
vw 
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TELL GRONK CUFUZZ,PP RH, VELe EASY) ax TS 
W1ERHOFR IJK) AM 15, 
WVSW1*VEL AX 16 
____ _W2aWV8COSIN Sich Serie eee) RE OE, 
W32W2*SL_LOPE AX 18 
W4sEASYPRI eK) AX 19 
WiJeKsl =Wt AX 20 
WE eRe 2daW2 Beeb ha gent =o AX 21 
WJ eK e3d=N3 AX ¢ 
___ Nhs eh eGd=WG alee at wel ps een A ce SOE 
PIJ.K=PP AX 24 
RETURN AX 25 
END AX 26=- 
_ FUNCTION PVNTS (WONE»WFOUR ¢MAMAyNERK) ay 2 
Cc COMPUTE STATIC PRESSURE AS A FUNCTION OF (W1,W4sSTREAMLINE) AY 2 
Cc aY 3 
em COMMON STUPID FIZT,60) 00 ea 
COMMON /SUPER/ R121 60) AY 5 
A 
W1=WONE AY 7 
a" WSSWFOURT res , aed "AY 7a” 
M=MAMA AY 9 
re “N=NERK O—™—SC‘<C;C;<;«<; Se Sp Ee eT AM ee Eb era’ \, Lv 10 . 
c AY 21 
FUZZ=FTANS AY TZ 
HO2HZERO(FUZ2) AY 13 
——pstHOeWl-W4)/RTMOND AY 1G 
PVNTS=P As AY 15 
eS Se yt Se ee ee te te em AEG ~~" "By 16 
RETURN AY 17 
ENO AY 14 
~~ FUNCTION AHOMAX” (FUZZ3 at eras Tee eS RES J aay 


“CU *RHOMAX"" COMPUTES THE STAGNATION OENSITY ; 
c AS A FUNCTION OF THE STREAMLINE VALUE, AZ 


2 

3 

4 

COMMON /STAG/ A(8o21) sCPU 321) eCV (3921) oHTML21) pGAMZ( 21) »RGAS( 21), oe 6 
jo MREES Ve TETSU MENS OES? 7 
8 

9 


ag 
~ = —— qnestcg So ee cee ee peg 
ZERG20.0 * aL 10 
Wel eS ee EE ee ee ee a Mee SOL 
F2FUZZ AZ 12 
“~———— TF (FSEQ.ONE) GO TO 3m rte ts erers sess se gp pg 
IF {FeEQ.ZERO? GO TO 2 AL 14 
" "7" TE (Fe(ONE-F).LE.Z2ERO) CALL BOMBER (*™RHOMAX"*, 1) - AZ 15 
XaF#20.0 AZ 16 
Sa... eS SS eee Ale 
DIGLT=NEWKY - AL 18 
“=~ “FB 2aX=DIGIT Fam ara eS eye en ia ay ee “o> AR 19 ~ 
FL=QNE~F2 AZ 20 
= eNEWKNOl ee aren miacanmee | Ie 3 | 
KeJel AL 22 
—RI=FIFRAUZTIVAFZERADZTRY————S—O—COCOCOCOCSC“*‘“‘“‘“‘C OOOO es 
2 RHOMAXSRZ AL 26 
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"END 


FUNCTION RIDDLE (NY eNX? 


“COMMON /STUPIO/ FI21,60) 


: ZERO=0.0 


——~ COMPUTE PROPERTIES AS A FUNCTION OF RHO. 


XM=SQRTFCONE/BETAY 


COMMON /SUPER/ R(Z21960) 


GALL EQUATE (WIR rGOrd oWi lobed oHA? 


a OE ERNE 


~—C<RZHRHOZTIF = ———“=‘“SS—S——..C (NS) eee oe ae 


_ 60 TO 1 


RZ=RHOZE21) 
[') 1 


eure THE DENSITY “DIDDLE* FACTOR FOR 
INSER ~ 


COMMON SEROS/ W221 6004) 50121560) 
COMMON /SUPER/ R(21,60) 
COMMON /THERMO/ CPX(3) eCVX(3) RAG 


fae me ae we eetneeene = ee eee etaieenr an J Seeoe 


ONE=1.0 


K=NY 

J=NX 

RIOOLE=ZERO 
z ° 


RHO=W(K pJolI/RIKe J) 

CALL FONKY (FUZZ +QHOsPSTAT »VEL, EASY, T) 
VV=VELS%2 

GAMMA=CSUNBPIT) /CSUBVET) 


ne ee eS 6 ETS Oy 6 Ree 


AETA=GAMMA*RAGST /VV 


RID=QNE-BETA 
Le= 


RETURN — 


SUBROUTINE ROGUE 


COMMON /EROS/ WE21,60.5) 
“COMMON /NERD/ MFyNF NT 


SMOOTHING ROUTINE FOR DENSITY 


PRESERVE STATION le 
pa 17 J8155— 


COMPUTE DENSITY AT EACH WhO, 0,23 


te ee oe -—- 2 == -_—— 
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° 

3 ____CONTINUE_ pees eee ee BR 

¢ 6B 18 
c - io tangs 50 eapbeent——— = age, See Pete oy ot, BBP 1 

¢ SHIFT RHO UP * 2 FOR TEMPORARY STORAGE BB 20 

DO 4 Jel NF . ; BR 21 

= el1= 

4 CALL EQUATE (HEL KO2o1) oWIL Kel Dg MF) 8B 23 

Pee ah eh a A RE RE ER Se ec cE ra- 

CALL SLICK BR 25 
CS Sea et ee gn eg ee eee oe BR a 
c RESTORE FIRST STATION AB 2p 

=I 

5 CALL EQUATE (WU Lol oJ) oW( 106005) eMF) BR 29 
TT METURN ee Et ee nT a re US RTE RES BB SSO 
END BB 31- 

7 = SUBROUTINE SAM” TOUT Om ov ec ol 

C AC 2 
———"CMHON 7EROST WTE1,60,43,PT21,00) —S——CCCSOSOSCCSCNSCSCSTSCiRGSSO 

_.__COMMON /NERD/ MFANFeNTeMUFF 

COMMUN /STUPID/ F121,60) ac | (5 

_____COMMON /SUPER/ R(21,60) = wove es deen SHES 6 38 

COMMON 7WORK/S X(60) : aa a | 

COMMON /SEXX/ NASTIESINIOT ec 8 

IF (1O(OT.LEe2) RETURN * ac 10 

or eee AN) ee ee ne ae a 

(a PRESSURE SMNOTHING AT CONSTANT Ye BC 12 

TTD MI ac 13 

c AC 14 
wo ol eae ae 

1 X(SD=PIK ODD ac (16 

I ee eee a7 

CALL SMNOTH {X,EDIOT,4> . ac 18 

——— HORONS LID OT nm nnn i momnn memmnemnrnn Ae 49 

GO 2 J=2.MORON : BC 20 

° 9 ° ° ° . 

RWR=SORTFIWIK edo 2d) *8 29h K po 3) O82) BC 22 
TT —"MESNSWIKe Se 2)/RWR TT mm  mmmmnnnee ce cewnnn mem m—mnmnmns BE 23 

SN=W(Kyds3)/RWR BC 24 

“—"———_ W(K ede LD=RHOAR (Ky SD” wee gies = Wie MESS i AS Gane ac 25 

WiK eo de2 DW IK ede) SVELFCSN BC 26 

ede Es eve 

W(K 9d 04 D=EASYPRIK UD BC 2A 

“"" PIK ey ddeK0N) : ; ac 29 

2 CONTINUE BC (30 
mE nc ac ce Be TH 

3 CONT (NUE AC 32 
SG oe = eee I ee 

RETURN AC 34 
SEND ft ee a gee ee ee ee ee ee Me” RES iS ae 

SUBROUTINE SAVEWP ao 

"7 ——THIMENSION “AQ2L55923— Oo ape 

COMMON /EROS/ W12196095) AD 3 

COMMON 7NERD/ AF o NF oNT MUFF F eLIMIT, NASTY FO % 

ON 2 K=1,21 eo 5 
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DOs eo —— ee a ee 
__AUKe del Pah Kebedd | aA. os 8 eae BD 7 
1 AK ede ZPSWIK SNF oJ) 6D 8 
2, _., CONTINUE ciel te eens San seem es pee be rade eke ie “BDO 28h 
RETURN BD 10 
C aD 1} 
Cc <<<... > eS a 
_ . __ ENTRY RESET 9 hae any Sec oe Myre sth tg As ante noe AD 13 
NO 4 Kele2l an 14 
~ a OAS Jade eta setat eae enc 2, case te fan ie te Meet viata tina, ‘AE Abe S. 
W(Kelsd?=Al Rodel} AO 16 
3 WEK NF ep JIZA(K ode2) an 17 
4 CONTING AND 18 
= _ RETURN, Pa ond = Fo ue a te : - AO 19 
END 80 20- 
A, _ SURAMUTINE SETWP (PRES @NXSTAD reed . AE 
———" ENTRY ZETWP( PRES eNXSTA) BE 2 
C Ae 3 
—t RES = STATIC PRESSURE RE @ 
C NXSTA = "xX" STATION Ne BE 5s 
-C— pais Seat a Satis Ce . cea 
C_ _ "SETWE" AND "ZFTWP™ COMPUTES THE =W= AND @=P* ARRAY FOR A GIVEN RE ? 
c "xX" STATION AT A CONSTANT STATIC PRESSURE. " pe 8° 
c RE 9 
——————CNMMON *NERD? MF SSCS S*EE CSO 
gdb as INMENASTM. SS 4c Sot ol, eh es AO te ohn: a Ot ech fae ees ~ AE 2 
PP=PRES BE 12 
a Oa a ee ats Shek hag he Te oes tat RE 13 
: RE 14 
00 2 Kal MF RE 15 
—~3 CALL PUNT? (KyNXgPP)SCSCS..C.CCCCOC“‘(‘“CNCUES:CO*CUNG 
_ RETURN SC isha tat, tg yeiee abe cette te he een et fo RE 17 
RE 18 
ee ____. END - on ee ns 5 wee eee - - BE 19- 
Sats SUBROUTINE SLICK ° BF 1 
c: BF 2 
4 9 
____ CAMMNN /NERD/ ME eNF yNT¢MUFF yNEWKY — . "AF 4 
é banga i, eta Rp gt 
s C= SonRule A SMOOTHING BASED ON 4-PO(NT NEIGHBORHOOD. = = = RF 6b 
BF 7 
00 2 J=2,NEWKY BF OB 
- = __ 90 1 K22 sMUFF . . me see eee ee a a - oo . . AF 10 
L=J+2 . BF il 
- —_—_ 2 _ RUSH EKeL eLek). nee . om noes - _—— — oe wee == re ee ee BF 12 - 
ROZWIK=LeL yh? RFE 13 
RLaWEK eL—-Lel?} BF 16 
Rewikelel? - 6F 15 
_ RRBWEK LADD ee See en el nea Denne. | Os \ 
1 WK odel =BANDIT(RU GRO OAL oR RR . AF 17 
_ 2. CONTINUE See ont AF 18 
C , RF 19 
C RESET AX(S AND WALL BOUNDARY, AF 20 
BA 3 JazeN iF 2t 
WULed eR eW(LeJo2eLd | AF 22 
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“ST _WF, J, DewthFe Jee) «iE 2 


6 Ol ee ig tee stant Met RD iy at Se SOR eee 
Cc RESET LAST STATION BF 25 
_ DO 4 K22,MUFF Muy RA t et edt eee oe BF 26 
4 WIKsNF gL SW(KeNFO2 61) BF 27 
RETURN RF 28 
Cc BF 29 
_..__ END ; ; : elles Deis leet eaten 6) at, ot RF 30-_ 
SURRNUTINE SMONTH {(XeNXeNTEMES) BG 
Cc RG ? 
“~~ DYMENSION X€2¥—e 2410000 0°77 ad 86 3 
Cc AG 4 
yor = =WeNRS 6 ee ee eg en ee RG ao 
7 NERD=N-L ees atl, atthe ha eeu CO Nae Taeilee, TN ae: 8 2 BGS © Oe. 
LIMIT=NTIMES Sey oy . BG 67 
F20.8125 : BG 8 
“ " "———""e0n=0,5-0.59F # — . 7 BG 9 
Cc BG 10 
Sls 
CALL EQUATE (25XsN) RG 12 
~~ 1K =2, NERO rag i ac Mey pe eg BG 13 
1 X(K =F %Z(K +E OOS (2 (KEL 4Z0K=1)) RBG 14 
42 CONTINUE” 102 oe op por tge er ao pe SNe n a ; "7 86 15° 
Cc BG 16 
= = KEN ae ee ee ee ee eS: IL 
Cc BG I8- 
o ine ENO” a pe ed gee Tag mee TN a eae) AN ee Pe a Bop ea BG 19= 
. a... SUBROUTINE SNAFU CMMONND BH 
c : BH ” 2 
Cc COMPUTE THE PARTIAL FUNCTIONS FOR A 3X3 SQUARE BH 3 
s , s e 
tte = zoe =, -_ = - a ——= = a rt : —— = 8H 5 
COMMON” /EROS/ W12106004)" a aoe ee ad BH 6 
-.-_—__ COMMON /STUPIOS FC21960) BT 
DIMENSION Al4) BH 8B 
Cc BH 9 
= fee ee EN RO 
N=NN 8H 11 
ay we oa eC ee ae a Se ee oe RM 
KNUNT«O - BH 13 
oe =e an SE RC eet ee Reg ea ag Te eg Re py TAR Len 
NO 2 KRUD=1,3 BH 15 
= ae 
c BH I? 
== Oi) JOLEVab 3) oe em ee ais ae BH 18° 
JEN+JOLLY=2 BH 19 
QUINT UIT ms sss 200° 
AULPSWIKeJeI) BH 21 
= — ua eewikedve) ee ee A eee 
VETO ICORES BH 23 
IT Abb AWE Ke eS TREK BO 
FUZZaF(KeJ) BH 25 
- CALL EVAL TA,ROUNTeFUZZ) On Be 2b 
c BH 27 
Co 0 1) |= YT: 
Giese ats ak wee one ee a, PRO te ee a Oe 
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ne a Lh 11 | a ||) |: al 


_c we So ee ee es ot 
eo BH 32 
a RETURN __. BH_ 33__ 

Sole we ea Cg ee ae py PPO we a, oh ON Ss BMP eee 
END BH 35- 
“SUBROUTINE STACG C—O OOD 
Ores ss Co. NA? ea eee eee fe a Pe ae Sf 2. 
COMMON 7STAG7 AUB s 21) CPUS 022 bo CVE Sy 2L) oWIMI21 D,GAHZi 22) ¢RGAS(2i), BI ° 3 
— ___PPZEALDT2U21) HZI21) RHOZ(ZE aoe ees ty af: 
c : (5 
_COMKON /CPDATA/ CPSPEC (3,8) sSPCAMWT(8) »NANEIBI BI 6 
” coMKON JEROS/ 8168550) oX(50)9P 150) 9T(50) F150) .NSTAG eT =f BI 8 
~~ COMMON JE IMITS? VAIN OE ye i. SRS Eg 
_¢ roms we ete apt Neda URE a, et tie , EBL eh O 
Co eeeesssaaseseseessese - BI ol 
CALL CPEVAL AI 12 
_. CALL OREZ (Ay 420) BI 14 
GALL DREE fAeseO) 8. gna dtu? Pass Sacra: 
GCJ=32.1746%777.648 81 16 
—~—GRINCHEL © 98726 BE YD 
WENC H=GRINCH*®GCJ Al 18 
NS=21 61 20 
San ONE=1. a ame BI 217 
one Bl 22 
— a HERO ee “pr 237- 
Al 24 
geese 
WRITE (6,17) NSTAG AT 26_ 
NXENSTAG 2 SOCOOO OF 
Cc. INPUT DATA BASED ON FOLLOWING PARAMETERS: __ BI 28 
““C"___X = STREAMLINE FRACTTON = 0.0 AXIS; [.0 WAtL BI” 29 
c P — PRESSURE {PSIA) BI 30 
: HPERA TRANKIN 
CIB ERECATIVESMASS nt et ee eed Se IO oe 
BI 33 
po READ (5918) (XMK)sPUKD TIKI o(Bl dK eo Jal eOleKaly»NSTAG) _ BI 34_ 
WRITE (6511) NAME Br 35 
c AI 36 
WR 6919) TK eX Kd eP CKD F(K Dg aRieJdel,y oKal, 
a —— oe ae me ee ee ee — —_—— - - er eee BI 38 
CALL HEADS : i BI 3% 
i ee ne Bee a a ee oO, 
C  NORMALTZE BTS AND CONVERT PSTA TO PSA, BI 41 
00 1 K=L.NSTAG BI 42 
. T=P(K) #144, 
_1 CALL NORMAL (B11>K) »6) aes __ AI. 44 
Go eee oy Saal Sep nee Te ye ee a eS 
WRITE (6912) NAME = ae oN) a OE e see 2: . BI ob | 
WRITE (6519) CK XTKISPUKI,T (Ke (BULK) U81, 8) Kal NSTAG) BI 47 
c B81 48 
URD=NS— BY 49 
c : BI 50 
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™—ighikaleNo: 0° ee ee 


TARGET=K-1 Arete in : BI 52 
TARGET=TARGET/FURO BI 53 
BI 54 
CALL LINEAR [TARGET eX oNXeFl oF 2eJdLeJ2,+NOCONI 81 55 
Al 56 

e e ° 
AL 5A 
PZIKI=PIILISELSPI U2 09F2 AI 59 
_ TLEKIETA SLI OF LOT (S20 9F2 AL 60 
FIK)=TARGET BI 61 
c s AI 62 
,G so pS en ee ee TT Se 
SUuMs0.0 Al 64 
‘ NO 3 J=1.68 RE 65 
ALJ KIZACJITISELOAL Se J209F2 Al 66 
Cuty. = y : . AL 67 
NN 2 L=1.3 AI 6A 
a a JoKI*CPSPECIL»J)0)0OOOCOC~COOCOCOCT os nr 69 
al 70 
SUM=SUM+A[J_K)/SPCMWIEU) ry ee 2 | 
3S CONTINUE is ; RI 7? 
c Bf 73 
WIM(K)=ONE/SUM BI 2 
FAS (K DEWENCH*SU TOS 
4 CONTINUE AT 76 
CS : yee Bose, “at 77 
DO 5 KEL.NS : BI 7k 
§ ~ RAHOZIKI=PZEKD/SITZEK)RGASIK)D a Al 79 
c COMSERT Cp UNITS FROM ATU/LAM TO FT##2/SECee2 al ae 
6 CPLK 9 DECPIKy 199664 Al 82 
2 =A ky BI 83 
ON 7 K=1,.NS AL RG 
~~ CVELSKIBCPIL sKI=-RGAS(K) "> UU Te . : "7" AE 85 
CVL 2K I=CPL2eK) BI 86 
CVE REC PCS eRSOOOO  A 
7 CONTINUE 7" . AI BR 
NG SI : ae ne a ae 5 Al a9 
WRITE (6.12) NAME ° BI 90 
ie «gas _ . ween took ; AL 91 
WRITE 165919) IKeFIK) pPZIKDSTZIKT (ALJ oKI JBL BIg Kel NSIT BI 92 
. Tos 
CALL HEANS Bl 94 
“~~ WRITE 16913) . => : AL 95 
WRITE 16020) IKeWTMIK) RGASIKDICPU SKI dele SI s(CVIN KI Jaleo SIKel AI 96 
~~" “VQNS) : Al 97 
Cc Al 98 
~“t_ ~~ TUMPUTE EFFECTIVE GAHMA AT STAGNATION ———“—~;C~;CXC;73; COUCt;”!”!T!TC«é CdYS”SC 
WRITE 16514) BI 100 
3 Tage et Pe Ge RI 101 
DO 8 K=1L.NS Al 102 
meen" AHZIK AT ZK SI CPIT SKI4TZIKISICPI2,KI90, 5+0.33333330CPU3,KISTZ¢KI1) Al 103 
G=CPLLKIOTZIKXDSICPL2 KdOTZIKI#CPI3,KI) BI 104 
HEC UTI eRIFIZIRI PLE VIS eKRIFIZINIUVI SKI) AY 105° 
GAMMASG/H_ BI 106 
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TT GANZURSGAMMA OOS 


_ WRITE (6015) KeGAMMAsGeHoHZ(K) mates ons 8 Ie bart — _ B12 10B_ 
8 CONTINUE B81 109 
c . = aad ered 42a, Raat? ao Bl 110 
c COMPUTE MAXIMUM SPEED OF SOUND BY 111 

DO 9 K=1.NS . 84 112 

—"*XIKS8GAMZIKIPRGASIKIFIZIK)  SOCSC~CSCSST.CL...SOSaR 
9 __ CONTINUE ve : cai Sag scs nb ot ah Dy, 5 me BI 114 
c Al 115 

__. k221 reebs case) ve) _— Roti beicerard tet oT ae 5 oa BI ld 
CALL MAXIE {(XoK)~ BI 117 
AMAX=SORTFIX(K)) AT 118 
VAINaAMAX*0.15 BI 1i9 
VMIN=AMAX#0.10 81 120 

“WRITE (6010) KyAMAX,VMIN 7 : “ "pb tat 
RETURN ’ Bl 122 
c ; ayaa oe eT ; BI 123 
c BI 124 

_UM _ FORMAT (/20X%5" INDEX OF MAX. STAGNATION SOUND SPEED =',13,3X_"SPEE BI 126 

“TLD HS" oF Ge2et I FT/SEC DT oSXe9VMIN S%eF 9.25 %(FT/SECDS / 3D BI 127 

AL FORMAT — (/16Xe "STREAM FRACT.°%e8Xe "STAGNATION! 5 19X_ "RELATIVE MASS O BI 128 
IF SPECIE*/30X%e*PSIA' o TXo*T=R* BI5X,A4) / ) BI 129 

12 FORMAT PAR Earn git tant colons AS BI 130 

L 

__._ICNEFFICHENTS® / } BI 132 
14 FORMAT (/20X—e*STAGNATION EVALUATIDN® £/32X5*GAMMAS,10Xe"CP4,12X,* AL 133 
ICV" slLOXs*ENTHAL® / ) _5F 134 
15° FORMAT (20X01 5¢5XeF8e4e2Xo1P 3615.6) AI 135 
14 FORMAT {1615) BI 136_ 
FORMAT €/20Xe "STAGNATION AM 9 5Ke 5 UT ef ae, BI i137 

_ 18 ___ FORMAT — (3E126004% eNES.0) : is 2 BI 138 
19 FORMAT {10X15 9FB.S9F 1203 0F1001eBF9.% | BI 1349 

_ 20 FORMAT (10% 215 ¢2Xs1P8G13.4) ne ae oa BI 140 

END AI 141- 
SUARROUTINE START ae | 
MON ZAPE7 CINE(31L) a 

_. .. DIMENSION LUSH(27) 6 KARD(20) “ Kin dha £ _, Bs 3 

EQUIVALENCE (LCINE(1) sLUSH(1) eKARDIL)) Bs 4 
DATA KRUD/*1 #2°/,HUNG/ 94 #48 9/7 MUD/ PREC ES an Aslan Yat ._ BY 5 

~~] READ (5e2eEND=99) KARD 7 wah OS, BJ 6 

IF (KARD(L).EQ.MUNG) CALL ENDJOB BJ 67 
TF _TRARDTi) NEwRRUD) GO TOL  ~ ee ee 
_ARD(1)=MU0 ; A. Seats Benes! ~ 2 : : as 9 
TL ENE (31920 7 . . : BJ 10 
rename alae te ay eA a a i ee ce a ag 
ENTRY HEAN6 Bs 12 

BJ 

____ CALL TIME (IDIOT,NSECS) BS 
MINUTESNSECS/60 . Bs 16 

~ a NSEC=NSECS-MINUTE*60 0 be aside ta BJ 17 
KHOUR=MINUTE/60 BJ 18 
MINUTE=MINUTE-KHOUR #60 AJ 19 
CINE t2H)=KHOUR OTTO BO 
LINE (29)=MINUTE QJ 21 
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CINETSO}=NSEC BI 22 


. LENEG3DSCINECSD AE B28 
WRITE {692) LINE woe BJ 24 

.. .._ RETURN Be hh Sn ae tS ee el, SR 28. 

99 CALL ENDJOB ’ BJ 26 
RETURN ‘ BJ 27 
BJ 28 

_.... ENTRY HEADB £ SO AS Tice wetae Re aber Ae fede! 
CALL PCLB As 30 

___, WRITE (852) LUSH, = asta wens rans _,, 89 _ 3h _ 
RETURN BJ 32 

Cc woe rere ---= Shabudetentabe a&J 33 

ENTRY HEADLS 
_CALL PCLI4 ees _ _., Bd 35 

“Sr TWRETE 01652) LUSH Oe ee Bs 367 
RETURN : BJ 37 
ect RIN IO See SY gS ee Sie goutcee te A se 

2 FORMAT (2TAS L4G e834 ol2e%e%el2e* PAGE’ 14/) BJ 39 

J —_ 
_____ SUBROUTINE STATIC es, es | Se | 

c ? Si an ra = ip aa 7 7 7. BL 2 

C ___COMPUTE EXTREMALS STATIC PRESSURE DIST. FACTORS, 0 BL A 

c BL 4 
CNMMON /ABLE/ AX(21¢2) sBX(2152? BLS 

9 .] . J 9 s ° 
BL : 
——""" COMMON /NERO/ MFoNFoNTSMUFF mmm nn a 
BL 
se On a KmLgg 0 Te ee tO 
RXtKel)=0.0 BL it 
ol=he . 

_ ____FURD=MUFF ha Ben rate Nt tel Pre ee ae eee ae, an ne pin ho aes N onk me eee 
DO 2 K=LeMF zz BL 14 
TARGET=K~1 . ee —e AL 15 

“~~ TARGET=TARGET/FURD BL 16 
2 FIK =TARGET BLOT 
LU READE C 

WRITE (6e11) “BL 19 
qcn Fe te eee ere ee Bog 
NO B L=le2 BL o2l 

“~ REAM (5914) NSTAT™ WOU Tm ee a = “ "> Be 22 7 
IF INSTAT) 1LOe?e3 RL 23 

TOT TNS TATHETT Sg Fn BL ee 
4 N=NSTAT AL 25 
“READ (5015) (XEKeP IKI SUK) Kal aN) © BL 26 
WRITE (6¢12? BL 27 

~~ WRITE (6,16) (KeXiK) sPiKI ¢S(KIQKaIGNY oo oBL BT 
NX=EN BL 29 

SR 9) 0 «| anaes ;) MOE. || ae 
TARGET=F I<) BL 31 

“TT"" CALL LINFAR (TARGETSX NX SFISF2, U1, 5N2,NOCONF ~~ UT mo OBL O82 
TF (NOCON) 9¢5e9 BL 33 

5" AN(KeL SPL BFLEP(U2)eF2 © 7 : BL 34 

BK eLI=SUIL) CFL4S (J2)4F2 AL 35 
Kye i o 
6 CONTINUE Al 37 
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7 _ WRITE (6923) da betes ote bio eS 
WRITE (6,16) (Ke FIK) sAX(KeL)cBX(KeLDgKaleMF) BL 40 
BR CONTINUE nd he vata aa BL o4r 
5 BL 42 
RETURN BL 43 
9 CALL BUMBER ¢*-STATIC—*,5) BL 44 
10 RETURN BL 45 
Cae pita tye eA ESS: roe BL 46 
Cc ae op Sah BL 4&7 
“+f FORMAT —(720X%_* EXTREMAL STATIC PRESS. DIST. FACTORS § 4} = BL 48 
t2 FORMAT 118X,SHINPUT 6X s4HR/RWe6Xs11HPRES. FACT./) BL 49° 
13 FORMAT 17 16X 5 AHCOMPUTED 2 5X oe 4HR/ RW, OXe LLHPRESS FACTe/) BL 50 
‘16 FORMAT (1615) ibs Fs. ? bated ee fl 51 
15 FORMAT (3E12.0) B. 652 
16__ FORMAT =(20X91592X,3F 1095) BL 53 
END BL 54 
SUBROUTINE STORE ae | 
au 2 
_ ____ COMMON /ABLE/ AX(21,4) an a a7 aM 3 
"~~ COMMON /APE/ KITLEsLABEL(19) ais ° ° a BM 4 
COMMON /COUNT/ LeLlt ae, _ BM 5 
“COMMON /CPDATA/ TGFHI40) Sek = Oe BM 6 
COMMON /NELTAS/ PATO e DT SOUE SPOR a4 Oo? 
M 4] #4 
COMMON /EROS/ W121 760440 9PE21,60)_ ds : Cl 
“COMMON "/FANG/ F(9,4)5G1994) EE SE eR SS, RBM EO 
COMMON /FLIGNR/ WEIGHT ePTHROT PANIC 6M it 
“ COMMON /FRAN/ AD160),A1(60)RD(60%eBIT6OT BM 127 
COMMON /FUBAR/ Fi sF2,F3eF49F5 ; BM 13 
7TFURD7 WMPT4)»WHATG) pHNP IO), WNAL STRANI OS) ba 4 
_ COMMON /LIMITS/ VMIN _. ,AM ad 
° COMMON /NAVIERS DIDX,OTOX2s0TDX4,DTDXB»OTOYsDIDY2,0TOV4,0 TOYS ~ BM 16 
__ COMMON /NDEX/ INDEX(9) : _., Sa 47 
COMMON /NERD/ MF yNFeNT,MUFFLEMIT»NASTY BM 4 
COMMON /NITWIT/ CLOWN» VULGAR 8M 
“COMMON /PSTA7 PSTACIG),NPSIA 4H 3B 
7 _ COMMON /SKALE/ SIMPLE(4) : _. &4 21 
COMMON /SPOR/ S160),S0160)» SOP (60)¢S11603,$1P(60),AREA( 60) BM 22 
_._—- COMMON /SPY/ XCLASSsKGROUP - aM 23 
COMMON /STAG/ AA(8.21)sCPU3 21 De CVESe2L Do WTMI2) DeGAMZ(22L3eRGASI2Z1L) BH 24 
1,PZ(21),TZ2121) sHZ121) sRHOZI 21) aM 25 
COMMON /STOKES/ A(60),R160),H160) | ‘BM 26— 
_ COMMON /STUPID/ FOOL (21 60) : aM 27 
COMMON /SUPER/ R121%60) 684 28 
___... COMMON /THERMOS RHFJI7) BM 2D 
COMMON /TYME/ T,FLIT 84 630 
COMMON /WALL/ XWALL(100) AM 31 
——————CnMetIN /WORK/ KTRAC99) TOS 
_ COMMON /SEXX/ NASTIESIOIOT == . BM 33 
c BM 34 
Rg a aa a BM 35 
c BM 36 
REWIND 9 nu 3T7 
WRITE 19) KITLEsLABEL Lolly lisFHy Xs D¥e Di aDi ce Dl osOleyHAgHby We Pore aN 36 


___F sWEIGHT pPTHROT sPANIC oF 1 oF2 eoFA3eF4eF Se WMP gWMMeWNP eHNMeWMNeDIOX2OTOX2 BM 39 
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3NaVULGARs S950, SOP »Si 451 P,8EAKCLASS  KGROUP AAs CPACV, WT", GARZ—RGAS BM 4) 
4aPZ2eFZeHZeRHDZsAsBeHsFODL oR RHF Sy TyFLIE Te XTRAsPSIAsNPSIAs SIMPLES XWA AM 42 
_ SLL sVMINGAXs INDEX, A0,A1 cAN AT eNASTIE, EDINT AM 43 


WRITE (1451) AM 45 
RETURN , AM 47 


MAN 
{ 
i] 
i] 
i] 
i] 
i] 
i] 
t 
t 
i] 
i] 
t 
t 
t 
t 
t 
t 
t 
i] 

D> 
=z 
* 
o 


s erersve 

_ WEIGHT, PTHROT PANIC FIL F2.F3,F4sFSeWMP,WHM WNP» WNM,WNN, DTOX,DTOX2. AM 653 
~ 2DTNX4s DTDAR sDINY ePTOY2 eDTOY4SsOTDYA, MF NFeNTsMUFFeLIMIT»,NASTY,CLOWN BM 56% 
_ BeVULGAR sSeSMeSOP eS sSIP eAQEA SKCLASS s KGROUP cAAeCPyCVeWTMeGAMZ»RGAS, AM 55 
GP25TZ2,HZ eRHOZ eAsBs Hs FONL sR eRHF Is TsFLITe XTRAPSIAQNPSIA,SIMPLE,XWAL BM 56 


SLeVMINcAXs INDEX, AN Al sBDA1 sNASTIE, IDIOT BH 57 
« 5a 
Cc ; an 59 
WRITE (652) BK 60 
C_ ene, Nas AM 61 
RETURN BM 62 
Cc ; RM 63 
Gr ee a Pe oe er ee ee Te 
1 __ FORMAT §=(*1%,20X, "STORED ON NINE® 7) AM 65 
2 ~” FORMAT €°1',20X, "RESTORED FROM NINE’/) BM 66 
END AM 67- 
“ SUBROUTINE STREAM BN 1 
Cc @N 2 
TT —COMPDTE THE STREAM FUNCTION "F* FOR EACH POINT YN THE FIELD. AN 3 
Cc AN 4 
C °—" INTEGRATE THE MASS INTEGRANO W(*,%,2) = RHOUSR BN 5 
Cc THEN NORMALIZE THE RESULTS. BN 6 
Co 7 = - AN OC? 
: CNMMIIN /EROS/ W12156055) BN 8 
t e 
COMMON /STUPIO/ F(21,60) BN 10 
AN 11 
DO 3 NX=1,NF AN 12 
~ 7" F(LeNX220,0 ~ vis . ae BN 13 
DO 1 K=25MF BN 16 
, s Ie +0. ~LeNAg cit oNAs N15— 
c BN 16 
Cer. " BN 17, 
c NORMALIZE BN 18 
Cosy et ae AG gh Oe SN eG nares BN 19 
00 2 K=1,MF BN 20 
° ° = 9 9 
c AN 22 
3°" CONTINUE "OCCT . E 5 BN 23 
C 8N 24 
TOT RETURN TOT : BN 25 
END AN 26- 
—————"SUBRUIITINE TRICKY 
Cc BO 2 
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Z COMMON /CNUNT/ LolL : eee siotsic = = 380... 44>. 
COMMON /NOEX/ INOEX(9) : ae: 80..~=«S 
___ COMMON /NERD/ MF oNFeNT “genes: __,80_ 6 
COMMON /STAG/S ALB_21) CPL Se22)oCVE Sy 21) 9 HTMI 21 ),GAMZI22),RGASI21), 80 7 
1LPZ(21)4TZ021) HZU21) pRHOZI22? BO «6 
BO 
DIMENSION X(9)¢— ¥I9)_ fet ee A ot ed OO 
= RENST 9) 2 80 “117 
JeMND(L~1 925) rhea os _...80_12_ 
TF (9<NELO) GO TO 2 EN gy ee os ee ee 60°13 
CALL HEANLS : BD 14 
WRITE (14,5) INDEX BO 15 
C . os Se Ree eee eee _ fo 16 
-TCconrinue ~O0 TU bag sees So ee oy BO 17 
DO 2yKebe eet ee a ao (18 
SEINDEX(KS 60 19 
X(K)=P( ME, J)/PZ UME) an 20 
————"VK=PlleJi7PLtl) SB 
. 2 CONTINUE BO 22 
Cc BN 23 
\. WRITE (1493) Xob = _ BO 24. 
~—WRITE (1444) YOO BN” 25 
Cc BO 26 
~~ == RELURN: eee ee eee ee BU ae 
_¢ Le CeCe eer ae _ BB 
Cc ‘ BO 29 
A Ge ee Te nies Se yas ae ea oe ee are tho 4 LOO: 
3 FORMAT (1X,9F12.4,18) 5 BO 31 
4 - FORMAT 17X%,9F 1204) BO 32 
A ’ It) uV//3Xe91127) Bi 35 
€ND ae ase 80 36— 
"SUBROUTINE TROPIC (PO; TO.PSTAT,F,OENVELZEASY) APO 
© UTC COMPUTED Pl? 
Cc 7 F . AP 3 
c COMPUTE STATIC DENSITYsVELOCITY,AND “E® INTEGRAL APG 
OR AN- NTRO XPANS IO VEN 
c STAGNATION CONDITIONS FOR A REAL GAS OF THE FORM? = == = = = == PO 
CCP = AO + AL*T + A2®T#*#2 © P = RHOSROT nn a 
Cc RP OB 
“CPO ~ STAGNATINN PRESSURE ~— . pO ares = Sap 89) 
Cc TQ — STAGNATION TEMPERATURE RP 10 
~€— PSTAT ~ STATIC PRESSURE AP OD 
C____ F = STREAMLINE VALUE . am BP 42 _ 
Cc BP 13 
C____—SCOEN ~ STATIC MENSITY eee a Pa 
c “VEC = VELOCITY BP 15 
<C EASY — SUM OF INTERNAL + KINETIC ENERGY PER UNIT VOLUME BP 16 
AP Ot 
COMMON /STAG/ ALB e22) CPU e212) sCVI3, 21) gWTMI 21} eGAMZ(21),RGAS(21), AP 16 
aPZCAVIVTZC2L) BP 19 
COMMON /THERHKO/ CPX(3) eC¥X13) RAG B. BP 20 
COMMON /LIMITS/ VMIN ep 21 
c ap 22 
i... ee ABD BS 
ZERO=0.0 ; RP 24, 
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he IDO: oc na N i welt ee = Be Shinde he : AP 26. 
P=PSTAT ~ BP 27 

waits he EWE ORR Se hee ee ee ee ee eo BRS 2 8 
2 AP” 29 
PRAT=P/PO AP 30 

7 BP 31 

_. , TSHANKY(CPXsPRATsTOsRAG) oo 44> 22 . . . BP 32 
RHO=P/ (T#RAG) Fa BP 33 

ie HDENSRMO! forte tot eA oS kes ah its ee oa is oe Bee Ges 

Cc BP 35 
OH=HOTS [CPX,T»TO? 3 AP 36 

VELOC=SORTF fOH*DH) 8 

VELNC=AMAX1 (VELOC eVMIND BP 3B 

7" VELSVELOQG, Oe = - : . AP 39 
c ; ; BP 40 

~ “HN =HZERO(FUZ2 9° en cs ae BP 41 
E=HN*RHO-P AP 42 

<< SEASYSE = = Se ee ee ee ee 
Cc BP 44 
TT RRETURN oS oe ae a eS ° BP” 45 
END f "fs 2a iP BP 46- 
“FUNCTION TSTAG (CP,TSTATSVSORY = : an ado 
DIMENSION CP(3) AO. 2 
_____T=TSTAT is ; ~ : tM ele oer, Ye RQ 4 
or WEVSORSN,5 mm nee : tn oy Ao) OS 

ecg ain: = WABGSUBPCTSTAT) = ee an fat RO 6 
Ao) OUT 

TZ=THW/A ROO 

[ya] 1 Kely5 fo 9 
H=HNTS(CP»TeTZ) an 10 

Pa. ERRNREWSH, oq eS ep ee a PV pea | one ee RQ 11 
___PTZSCSURPITZ) P ee Se he sions dbos BO 12, 
DT=ERROR/CPTZ os oa ee aie eee BO AS 
TZ=T2Z4NT BO 14 

19) 

c . : BO 16 
Sie ds eT SIAGEL ES ee Ste eat RE es Gee dep BO 17 
c BO 18 
me RETIN a Ng BO. 19 
END BO 20- 
~*~" SUBRUMITINEG WEYRDO tn BT 
c AR 
~~ COMMON” ZEROS W121 ,6004)5P(21,60¥~ — Te BR 3 
' COMMON /NERD/ MyNoNT MUFF LIMIT pNEWKY AR 4 
=p vison SEE foot eel Acton + Lay mt mee BR Og 
O00 3 1=1,NEWKY AR 6 

c aR B 
"HO 2 JEQSL EMIT eres ps “77 5 BRO g 
DO 1 L=154 : BR 10 

~ 1 WERT eh Kel Jel : . aR il 
2 CONT INUE BR 12 
“Gs Se ee ee 
3 CONTINUE AR 14 
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[tg tea ee ek 


_.......D0 5 K32,MUFF er, tr P bes ewes Seed. BR 16 
DO & J=2eLIMIT BR 17 
4 PUK e SIEPYNTSOWIK ep del deb (Kededd Ke ID 7 AR 18 
§ ~" CONTINUE fares a ae = z BR 19 
c BR 20 
=. IREIURN= = ee ee 
END : : : . . BR 22- 
FUNCTION XMASS (NXSTA) as 
Gus. ; 7 BS 2 
c COMPUTE THE MASS FLOW AT A GIVEN ®©X® STATION ND. BS 3 
c TRAPEZOINAL INTEGRATION OF THE RHN#USR TERM, BS 4 
c fs 5 
C__ NOTES “We ARRAY MUST BE PREVIDUSLY COMPUTED AS 6b} 
c BS 7 
_ COMMON JEROS/ W121 069 54)0P121560) ; r BS 8 
COMMON /NERN/ MF ANF NT, MUFF BS 9 
COMMON /SPOR/ $160) ‘ BS 10 
c BS 11 
_KENXSTA _ es 12 
SUM= (WL eK se 2)¢W(MF 9K o2)990.5 BS 13 
Cc AS 14 
"7" hO 1 Ja2,40FF . BS 15 
1 SUM=SUMPH LS eK 02) aS 16 
XMASS=SUM#S(K) BS 1B 
pee Meee MIN, oo eet Me he a tras faa) a Bee Fag 
_, RETURN | eee eae : . __., 8S 20_ 
Fie BS 21 
END AS 22- 
Sacro eeefesh—~hmaverr ETT 
c : » : eee eT 
“COMMON /CPDATA/ CP(3,8)eNTM(S),NAME(8) - sT 3° 
-_ CNMMON /PGMNO/ NPROG(5) a 
~~ COMMON /EROS/” KW16300) i er” § 
COMMON /SUPER/ KR(1260) aT 6 
CCP COEFFICIENTS FOR EACH CHEMICAL SPECTE ; AT. 8 
¢ UNITS OF ATU/LA.MASS BT’ 9 
iG: BT 10 


~ DATA CP/0.23180041.040000E=05 97. 166000E=0950.120765916720251E=04,~ BT 1k 
14 6235305E-08s 0261531 9-501 79134E-059 1 0 75ORE“0 720. 4300K2 1-H 76K842E 3T 12 
O05 20 TTHOH TES OB ee LIOGAL » 5 0 OSHB 19E 059-9081 2500E—099 00 246445—q- 505 BT 13 
36475 0E-06 910251 LODE-OB 4 0012434990002 000032226009 1675 7600E“04%,1,0E- BT 14 


~“608/ AT 15 
ea ieee ; aT 16 
DATA WTM/28.97 0440011928 00119 1B 20169 3200005 28 20004 39.944, 2.016/ BT 17 
Cc BY 18 
- cs mee = «= ~_— . AT 20 =. 
“oT “DATA KRAT26080f OO BT 21 
at = 7 BT 22 
~~ DaTa KW/630080/ — ie BT 23 
INTEGER*®4 NPROG/*SEROO238 (OR-18-72) °/ AT 24 
END ’ — AT 26- 
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Choked Version 


/UNK. LIN * 
INCLUDE SYSTFORT | 
ENTRY MAIN 
c REAL GAS TIME-DEPENDENT ANNULAR NOZZLE FLOW, 
€ RUN ON TAM 3707155 ARNOLO ENGINEERING DEVELCGPMENT CENTER, 
c TULLAHNMA, TENNESSEE »37389. 
C FOR (NFMRMATION CONCERNING THYS PROGRAM CAONTACT, 5 
c ENGINEER -- SAM WEHNFER PHONE. 615-455-2611 EXT 533. 
c ANALYST-- W. Co MOGER PHONE. 615-455-2611 EXT 771, 
c 


DATA KE/B/.K14/14/ 
______WRITF (691) 
WRITE (8g2) KG L) tT 


> PP PY PIP PD SP 


WRITE-(14,2) KI4 a 12 
“CALL SER142 A 13 
CALL ENNDJOB a 14 

“ CALL EXIT . A 15 
sTnP A 16 

r= gis 7 = ee ee em ae ee So ee 
l FORMAT (*1*%920X—9* PROGRAM ND. SER00142 AUG 861972 #7) A 18 
2 "FORMAT [*1L%,20Xs*QUTPUT FROM DATA SET NO.*,I3/4O" } a 19 
_... END A 20- 
FUNCTION BANDIT (XL —¢X29X30X49X5? ae | 
COMMON /FURAR/ Fl 9F2 oF 30F4eF5 a 2 
BAN=F1*X1¢F2*xX2 5 3 
NITSEISX34F5 4X5 8 4 

“" QANDE(TSRANSDIT | 8 65 
RANDIT2=BRANDI TOF 49Xxe a 6 
RETURN Poe Se . 8 Tf 
END a Be 


COMHNN /FLIGNR/ WEIGHT sPTHROT»PANIC 
“COMMON /COUNT/ LoLl 

COMHNN /NERD/ ME yNF ONT 

™ DIMENSION ACB), XE30— VE3d™ 


Aaa 
@awbwn 


ZERO=0.0 
CALL PMIN (PANIC). 
XL NW=0 .3*PANIC c O68 
DELX=0.005000001 PANIC fate yee 8 Ns a ae ge © crime a, 
JERK=0 c 10 
OO 1 K=193 eens Cc ofl 
XIK)=XLOW*+(K=1)8DELX - : C l2 

° e 

YOK) =XMASSINT) ; Cc 14 
17 CONTINUE . c 1S 
DN 2 K=1,69 c 16 
™ " YERKEK nr rir Ee a ae c #su? 
CALL PARAR (XY) c 18 
. e Ble > 
° XTEST=-0.58A(2)/A033 Cc 20 
IF (4¢3).GE.ZERO) GO TO 3°” Cc 2i 
IF CUCL) LE OXTEST) ANDO(X(3)GEXTEST)) GO TO 4 Cc 22 
“xelpex{2) Cc 23 
Yalleyv¢2) C 24 
= : TT 25 


Ye2o=¥(3> C 26 
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X13 )=X(3)4DELX 


CALL _SETWP (XC3)eNTD 28 
¥(3)=XMASS(NT) Cc 29 
__2. CONTINUE 3 Se Se 8 a GE BOs 
3” CONTINUE c¢ 31 
CALL ROMER ( *BEDLAM® JERK) . C32 
RETURN 
4 CONTINUE Cc 34 
~~ 77" CALL SETWP EXTESTZNT) OOCOCO™C™COCOOTCCTCTTTT.CC(S oes c 35 
____ WEIGHT=XMASSINT) _ Nata s, ote, cme ies onsen eek tk nk ASS Pens ta Cc 36 Siah- 
~~ PTHROT=XTEST Cc 37 
WRITE (695) WEIGHT »PTHROT, PANIC Cc 38 
[¥) 
c c 40 
~~ 6" FORMAT” (/20X¢ *WEIGHT=°5 1PG15 069 3X5 *PTHROTS § 4615560 3X, *PANIC2"°,G15 C 41 °° 
16 /) Cc 42 
=o END: are Ee ES Ee a, io ani C 43-77 
SUBROUTINE BNORY Oo. 1 
= COMMON /DELTAS/ DX ,DY DT »DY2 eD0T2,0T% 0 3. 
COMMON /SUPER/ R121960) 0 4 
a _. COMMON /SPOR/ $160)¢S0160? SOP (60)eSTI60),SIP(6O),AREAT60) = OF: 5S 
™ COMMON /NEROD/ MFoNF NT »MUFF LIMIT : 0” 6 
COMMON /EROS/ Wl21¢60+4).P(21,60) Oo 7 
ATA ZERI/0.0/ eONE/1.0/ 8 
_ _.____ COMMON /FRAN/ AD(60) ¢AT(60),B0(60)-¢81160) = = _.0..9_. 
~~ DIMENSION PP(100) D 10 
es Gee Bte ae Som, ees he esses OES = 
Cc COMPUTE OUTER BOUNDARY PRESSURES D 12 
ON 1 K=L»hO O13 
KI=SPCUMF GK) 7 ta 
_£ Sp De cracls S See ee 
re 002° K=29L THIF a SURT aie 0-16 
XSW(MF eK e22*#2/W(ME Koh d Betts eh tne steel es MOE EET Y. 
X=X/SUIK) Sis as gens D 18 
OP=0.5*( PPI K+1 )—-PP(K=1)) D0 19 
RR= KI &DP= 
“PEAR SKISPOMF=1,K24CORR Toe vost. We T2EY 
2” CONTINUE << ——" OD 22 
its oa M0 3 K=2eLIMIT | J ea a owt tl spe ess A et a I BR OF 
SNPK=SOPIK) _ D 24 
OINGLE=NNE+SOPK¥#2 D 25 
~~ —TWANGLESSORTFUONE/NINGLED —< ae 
oan CALL GRONK (ONE ,P(MF,KD»RHOOVELSEASYD = == _.. 0 2 
~ WEMF 9K] )=RHOER (MF .K) Oo 28 
_ ___WEMF ¢K o2)2RHOFREMF eKISVELSDANGLE wnt oy ke ees OP F288 
~~ WOMF 9K 9 3) =WOUMF oK 92) ®SOPK aa 0 30 
3 WIMF 6K 54 D=EASY*RIMF,K) Oo 31 
° O00 4 K=1,60 °° D 32 
__4 PPUKD=OC1 eK) lg te ee ee Pa ee eee 0 33 
ON 5 K=2eLIMIT D 34 
8 EWE Ke 22e82/W EL Ke dD) ek Pa a D 35 
X=X/ST(K) D 36 
DP=0 59 (PPIK+1)=PP (K-17) O 3% 
—___€NRREAT (KD *DP-ALIKI*X  OCTCOCONTTTTTTTOOCOSS 
5 P(1,sK)=P(2,K)4CORR .. . 8 39 
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C : B40 


_.00 6 Ke2eLIMIT LL 
SIPK=SIP{k> D 42 
: __DINGLESONE+S IPKOO2 ae _, D_43_ 
~~ DANGLE SORTF (ONE/DINGLE? D 44 
CALL _GRONK (ZERO oP (14K) sRHO VEL ,EASY) D 45 
WlleK se LIZRHOSR(} KX) D 46 
__WiLeKe2)=RHOFRELSKISVELSDANGLE D 47. 
WE Lg Ko DIEWEL Ko 2) 9S 1PK nN 4a 
6 WERK ee SD ZEASYFRIL OK) ee ee een ar pt Ay D 49 __ 
c Do 50 
RETURN 0 51 
END D 52~ 
__SUBRQUTINE BOMBER {NAMESKODED) Fou 
DIMENSION NAME{2) —E 2 
. WRITE (6s) NAMEULINAME(2>9KQDE ===“ Pee 5 Ee 4 
CALL ENDJOB —E 4 
CALL EXIT — 5 
=? “RETOUR =e oe ere ee EE ee 
c —E 7 
KO FORMAT “(/20K5*BOMB-OUT IN %5 24,5 3X_ "CODE=", 157)" See a —E 8 
END E Q= 
~SUBRNUTYNE CAROIN, GO a ees or te © ah en 1 
COMMON /SPY/ KXCLASS»KGROUP F 2 
CALL DEMON . F 4 
~~ READ (553) KCLASS»KGROUP SSS 
: WRITE (698) KCLASS sKGROUP BP a Rs Ne Ahead de PP. Oa, 
~“ CALL PCLASS a. a | 
any 2 reegoees F 8 
e = a 
TF “(HOD (K=1 )50) NE 0) GO TO 1 bor ey bre lees 
~ CALL “PCL6 Ps = ae Fut 
WRITE (OeF) ee es ees ie tte eek he 
i WRITE (655) KARD Kk are = yr ias F413 
2 CONTINUE F 14 
W 5 
“WRITE (696) F 16 
“ RETURN Sop SE pees aa Pew ee Oc, TEE SN FO Soe, Oe eee Lee 
Cc F 18 
FE BORMAT UNCLE I SS BE Sage * 
4 FORMAT (2044) F 20 
9 .] 9 
6 FORMAT (2X,500°%*),* END OF INPUT OATA *,50¢'@*) ) 22 
“7 "FORMAT {18X%.* INPUT DATA CARD IMAGE PROGRAM NO. SEROO142* / ) 23 
8 FORMAT (/20X_*SECURITY CLASS AND GROUP CLASS=',15,' GROUPS", 15/) 2% 


ee END ae. 
SUBROUTINE COVD (CLAP,VENUS »PUNTZ »NASTY) 


e 


e ° 9 

COMMON /NELTAS/ DX.DYsD0T 

COMMON /NERD/ MoNeNTeMUFF OO” 
COMMON /SPOR/ S(50) 
COMMON /SUPER/ R121,.60} ~~~ 
NX=NASTY 
CUS TWTAGNX eo ZIFWI I NX cII¥UeD OSS 
VD= CHUM gy NX 9 2d)*S2/ WIM NX LIOMEL GNX ZHU 2/0 LeNXeL) 99065 G 


QOanaqdqananunnn 
= 


c7) 
On ou sw 
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———PUNE= (PIM yNXISRUMNXISPILSNXIPALIGNRIIOOLS~—SOSCSC~“=“CSSCSsC“‘“‘; COS! 
DO LKe2sMUEP LS 
OE DECD WK NK, 2) G” 12 
7 _ VD=VD4W (K 9NX5236#2/W 1K pNX5 1) G2 T3z_ - 
“TP ~~ PUNE=PUNE+PEK NXP@R(KQNXDOOCOCOC~C“—sSOSSTC“‘SOO G4 
SEX=S (NX) SDY#2 00 G 15 
s x* 
VENUS=SEX#VD G 17 
py PUNT Z=PUNF SSE ee me eee —G 1a 
__RETURN Seat ee ee ot eo ee _G 19 
——————~ END ran i "6° 20- 
SUBROUTINE. CEPORT (PO, TO sDEN sFUZZ »PSTAT, TEMPe VEL EASY) H 1 
COMMON /CLIMI VMIN ' 7 H 2 
= COMMON /THERMO/ CPXU3) sCVXt3 2 RAG ee Ey en ees ee ane eee 
T CONTINUE H « 
Ba ZERO = Og Oi an a ee os! eS ede hee MOS ee 
P2=P0 H 6 
T2210 H 7 
“RHIAN ee eee 
FF RFUZZ | : “. coe Tein dl? 39 
— “ RRATIGHRHO*SRAGSTZ/PZ pee Fs eae tw ot 7 H 10° 
Poney AZ=CVXEUL? RRR eR Mr te ene eee eet | 
A=CVX(2E arate ie + 2 
A2=CVXt3) H 13 
—.— . SRRAtIO: 090° fo et ee a te ge ee a ee ee oe 
RGAS=RAG H 15 
“ “—"" POWERZRGASTAL . OO H 16° ~ 
: FUDGE=X**PDWER ; H 17 
RAREEAL IMD oo ocr ee i a ae Ie ee ee Ce BS 
TRAF=A2*0.5/A2 H 19 
Sa eR (EI RAR a i INR! * A | EER 
DO 2 Kel,5 rs | 
TTT ET/TZ I aa a OT “"H 227 
EPAR=(T2-TI#(BARF+(TZET@TRAF) _ eed ee = H 23 
“RLAXSEXP(EPARD SCS Rg ee Me CO 
TRAT=XL AX*FISOGE H 25 
MP=(RAT® 
__ ERROR=TCOMP-T . 7 H 27. 
oo T=TCOMP : ‘. 7" 4 28° 
_ 2 CONTINUE be SP En ge ee a ee aN te HS eee. 
PRES=T#RHO*RAG H 30 
DH=HOTSICPX eT 9 TZ) H 31 
——————VELGG=SORTFIOH*#DH) 
: VELOC=AMAXLIVELOCeVMIND H 330 
~~~ HO=HZEROCF) A 7 J H +34 
PREP atl lal | ga a 
PSTAT=PRES H 36 
VEL=VELOC H 37 
_ £5e °° °° ©€=©|}©|.)CCOUUUUUU ee ee 
TEMP=T H 39 
c= E> IDE TURNG if Tyo ee tee eee ae rr ys one a gai BO SS ee I BO 
END Pee amie eat es ee, a ie H 41- | 
SUBROUTING CPEVAL SS * I 1 
COMMON /CPNATA/ CP(358),WTM(8) »NAME(8) 1 2? 
KRUD?* 5 : see) 
DIMENSION Xt@)» ¥¢A)_ 1 4, 
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N 4 7° AG Or ° 60 
* "a LBMOLE(S)/*CP(BSs*TU/L ey *BMOL'S*E-RIO7 
* © KGAMMA(SI/*CP/C% gv GASy MMA Pht ro 42 
_READ (5.10) NOMEN, ADDA . ee ty ia cau, woe ONS 15 

IF (NOMEN.NE.KRUD) GO TO 3 176 

DD 2 J=1-8 17 


LCP EK ed =-0.0 a 1 9 
2 CONTINUE . ‘ t 10 
F CPiLet»=0.24009 en La 
3. CONTINUE ng 17 12 
NCP=19 1 13 
R=1.98/26 
_ CALL HEANG Mowe cies ta 2 ay ee em 1 15 
WRETE {6¢110°°7 777 orp ae - I 16 
WRITE (6512) CK eNAMELK) oWIMEK Do (CPL SoK)o Jed y 3d Kul sO) rae oe 1 17 
~~ WRITE (60147 NAMESCBMASS ~ 1 18 
NO 5 J=1 eNCP 119 
Az J-1 ' 2 
oe  ASACANDA, = pee ones : I 21 
T=A*100.0.. °° ~ 1 22 
__.. 00 4 KetesA . Age . 1 23 
XEKD=CP ELK YFTS( CP (2K V4CP (39K IOT) 1 24 
4 CONTINUE : 1 25 
BRITE: (6013) tokel) OE ee 
TF (MOD(Ss5)cEG20) WRITE (6016) 7 1 27 
5 ~~ CONTINUE A age gt SPW ye gy, “2 et ok ee ON ee 
WRITE (6515) 1 29 
"WRITE (6014) NAME SLBMOLE” mmm 80 
On 7 Jel NCP 131 


S shed. ee eS ee a ee 


° 


AZA¢ADDA 1 33 
eR OD On et cee 1 34 
00 6 K=1eA 1 35 

~~ XKEKDECPULKYFTSICPI 2K FCPS QKISTS 8 
X(K=X0K DOWTMEK) 1 37 

WRITE (6013) TeXet 1 39 
TOO LTE CMON 5 DCEOLOY WRITE (60162007 ee 40 
7 CONT INUE I 41 
" "WRITE (6014) NAME .KGAMMA — ey oad Rat nee rane ee 2 
DO 9 J=LeNCP 1 43 
A=A*ADDA 1 45 

“""~" TsA%100.0 Peps Sten. : a tg ae ead . PLP SEO ET oh Gh 
On A K=leA 1 47 
 XCKDECPULKIFTSICPH (2K eCPL SKIT TEASE fod YP TN TR dee 

xis rene wank? I 49 

YUKd= Ex(K )/FUZL 1 $1 
BAS CAN TENE Ne ea, OS 52 
WRITE (6913) Te¥eT 1 53 
————TF (MON(J¢5).E000) WRITE T6915) 1 54 
9 CONTINUE i 1 55 
=  7REIORN ee Se OS 
Cc 1 57 
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0 MA AG, 29) 
_. LL FORMAT (* % 20Xe*CP DATA® //20X- "COEFFICIENTS FOR CPIBTU/LAMASS) 1 59 
1] F(T=RANKINED® //23X9°MOLS Wes 5Xs AO e 10K, ALOT! 13X,!A2eTSO2") =F 60 
_. 12 _ FORMAT (/10%_,1562X,44,0PF10.3,1P3G1526) | I 61 
13 FORMAT (10K eF Bele 5X eBF9n4e 2K FB) I 62 
14 FIRMAT (/12X%¢ *RANKENE?® AX pB(AG,5X)02XsGA4/ } 1 63 
ts RMA 1) ra 
16 FORMAT (* *% I 65 
“" END } 66- 
FUNCTION CSUBP (TEMP) J iy 
m COMMON /THERMO/ CP(3)eCV13) . . te 7 gy) 2S 
T=TEMP . J 3 
CEC PTT oT etc Plestcptasel) OO ee 
CSURP eC J 5 
iy "7 RETURN™ : J 6 
ENTRY CSUAV(TEMP) Jo? 
~ 7 "" TsTeMp 7 7 5 J 86 
C=CV(1LIFT#(CVI2)4CV(399T) J. 9 
SUBV= 
RETURN Jk 
AE END Sy 7 Sa J la 
SUBRAUTINE CYCLE : a | 
“ """ COMMON /OFLTAS/ DX, 0Y¥.0TsD¥2e0T2,0T4 . kK 2 
COMMON /DUPER/ HA(21),H8(21) K 3 
MMUN 7ER Wl2leb0eGle 700) x 6 
R 7 COMMON /FANG/ F(9,43e6(9.4) « 5 
COMMON /FURD/ WMORTH(4) »WSOUTH(4),WWEST(4),WEAST(4) K 6 
_.. _ COMMON /NAV(ER/ DTDX sDTDX2 eOTNX4eOTDXA eDTOYs OTDY2 sD TDY4,NTDYE Kk 7 
COMMUN /NERD/S MF NF eNTsMUFF LIMIT kK #8 
COMMON /STNKFS/ AL60).2(60),H(60) K 9 
COMMON /STUP(D/ Fuzzt?le60) ~~ .CFCNTTC*ERSD 
_. . 00 4 Me? MUFF cy Wee Mpa te A lt 
Y=H8(M) K 12 
_ NB NS2eLIMIT oi) ae te Z K 13d _ 
HN=HI(N) K 4 
EAST=ACNO1L#YFB (NGL) K 15 
Ty WEST&ACN=1) *Y#AR(N-D) : 
Aga ANYR=A(NISY9B (ND aN. we, wate’ Gh ; as K iT 
FUNGE=A(N)*DY2 “~ kK 18° 
__ ... YANSEESANYBOFUDGE = == es Can : K 19 
; REREL=ANYR=FUDGE e K 20 
CALL SNAFI) (MeN) « 22 
DN 1 K=1le4 K 22 
_-. FOGRFIGsKI-F (49K) * a ae K 23 
he GB221G(R eK 1-GU2 eK) HN K 246 
ok FR23(F(BeKI-F(2eK)) *ANYR SS kee eM te Bt So ate RE F2S 
WBAR=(W(IMsNo KI WIM] gNgK} 99005 K 26 
FX=(FA49F (95K -F 070K) )40TDXS8 K 27 
VY=(F(ByKI-F(5 eK )) *YANKEE K 28 
zy GYE(GURKI-GI5eK)#HN re 2) Sse i af es, (KS cee = 
WANRTH(K) SHRARSEXSGY-FY K 30 
WRARS (WH (MeN eK eH (M—1 oN eK) 990,5 g K 31 
FX=(F6OG0F (3 eK I=F(1.K) SONTOXA ‘ 23 
FY=(F(5.K )-F(2.K) ) REBEL 
~~ G¥=(GE Fa 5 oo EA ae 
WSNUTH(K J BHRARSFX4GY-FY K 35 
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WEARS CWTMIN+L KD +WU Ae Ne Rd 9005 K-36 


__. FRSEF(GeKI-FUS eK DFOTDX2 Bel Pes K 37 

” FYS(F (99K I-FE3,K) EAST k 38 

_. GYSIG(9KI-GU3.K)DSHENELD | Ahn lyase ere K 39 
WEAST (K )=WBAR+FX+ (GY 4+GA2—FY-F82) 90, 25 K 40 
WRAR=(H(MyN-1 eK DW (MeN eK) 9065 K 41 

— FXBIESeKI-FIGeK)DI®OIDX2. | —OCOCOC~C~C—SSSC“C‘C ‘(CSTR 
_ PYSCEC7 eK DF (10K) #WEST oe : Se > K 43 
GY=(G179K)-GU be K) #H(NA1) K 46 

UL __ WWEST(K D=WBAR+FX¢ (GY 6GA2-FY=FAZ 90.25 é K 45 
WNORTH(3)=WAQRTH( 3) ¢0T4*(P{MgN)+P (MOL) ND D K 46 
WSOUTH(3)=WSOUTH(3 ¢0T4¢(P(MeND*+POM—19N)) K 47 
WEAST(SISWEASTIS)+*0149IPIMgN)*PIANOLI) ©) OR 

_ _ . HWEST(3)=NWEST(394DT46( P(M)N)+P(MeN-1)) ‘ K 49 
CALL EVAL (WNORTH, 25 (FUZZ (MoND+FUZZ (M419 N} 80.5) K 50 

_.. CALL EVAL (HSOUTHeL, (FUZZ (Me ND +FUZZ(M—19N) 19005) K 51 
CALL EVAL (WEASTs4_ (FUZZ( My NDOFUZ2 (My NFL) 980,5) K 52 

CALL EVAL (HWEST o3,(FUZZ(MeN)+FUZZ(M,N=1) 990.5) K 53 

K=1,4 & 

FX=(F(4 eK )-F(3,K)) ODTDX K 55 

~~ PYS(FU2 9K mE CR KD) #ANYBR : K 56 
GY=(G12 eK )=-GUL eK) PHN K 57 

2 WU M=1 9N=15K DEW (Hy NK) +EX4200#(6Y-FY) : K 58 
W1 M1 9@N-1,3)=5WIM—1 @N—-1 93)+P(MyNDODT K 59 

4 _ CONTINUE =. K 61 
~~" CALL WETRDO Gad Pe reP «FN : aa : K 62 

- - RETURN - ——a . ee re ee - -—<- . —— = Sze, 63 
END - ok 7 K" 64~ 
SUBROUTINE DEMON [ee | 

PL He 
_. —.. COMMIN /APE/ D110) sARONUM»WEEKDY, KDATE( 3) _ FA, Snot A ty ale aE wt 3. 
REAL*8  TWTFS(7) L 4 
____# /*_TUESDAY*,.* WEDNSOY?,*® THURSOY*,* FRIDAY ¢ So ee eae 
* 9 SATURDY®»? SUINDAY %,* MONDAY * 7 L” 6 
INTEGER BONTH(139/ ° JAN? ,? FEA’,* MAR®,? APR4,* MAY?,*® JUN! Ls? 
ui Vo oe, . 

INTEGER JERK (121/31 528431 930932, 30e 31032 30y 319 300 38/ ot ‘L o9 
“INTEGER LUSH/'1900°/ » LULU/® 00,°/ ™ 7 10 

CALL GETWHO (ARONUM,KYEAR >) L ott 

—— “KOAYSMOD(KYEAR, L000) L 12 
KYEAR=KYEAR/1000 L 13 

2 e e s. 

L = KYEAR ~ 69 L 15 

= “J = L446 + L + KDAY oe oe =a eine L 16 
L = MODI 3,7) + 1 L 17 
WEEKDY=TWTFS(LY 7 Se ee ee, er Be se ee 
K=XDAY L 19 

UIT T J=I,12 U 20 

MeJ , Lt 2i 

“TF CK CES JERKTUYY GO TA?” re Fa ep a gee et Sige 

1 KaK=-JERKIJ) L 23 
i et ee 2 L 24 
Me13 L 25 
KOATE(1)=NUNTH L 27 


es » 


265 


AEDC-TR-73-29 


XDA FaLULU+ 25601 (KJ10)* : 
__KNATE(3) = LUSH + + 2560(KYEAR/10) + “HOD(KYEAR 10), Bo et ah ee ER T28 
RETURN t 30 
______ END - fb et th eee bet ha twee TL Bis aero 
SUBROUTINE DOODLE — e ——: a 1 
COMMON /EROS/ W{21,60.4) »P(21 260) 4 


COMMON /NERK ME oN oNESMUFFOLIA 


___..._ CAMMON /STUPIO/ F(21,60) ae 2; Mm 4 
“—"~" COMMON /SUPER/ R(21.60) et ok yo 5 os a 577 
_ __._ DATA ZERO/0.0/ sONE/1 eO/ pBIGGY/0e01/¢ SMALL /=0.01/,HUGE/1.0E4+23/ = M_ 6 
XMASNT=XMASSOENT) é “a” 7 
ON 2 J=2,NF 4 8 
JAY=Js a 9 
_ _ __IF (JAYeEO.NT)? GO TO 2. er es tattet ented os p 2! _ 4 10, 
XHASJ=XMASS(JAY? 4 11 
_ _._ ERR=XMASNT-XMASJ se Poet, Say alt M122 
REL=ERR/ XMASNT . 4 13 
00 1 K=1.M4F 4 14 
KAY=K : 
_____, FACTER=RIDDLE (KAY 9 JAY) ate els : Cage. : 4 16 . 
IF (FACTER.EQ.ZERO) FACTER=HUGE “mM 17 
7 PAR=REL/FACTER —__ ee Bo Beek pdt rks te Raha foe, Pg ee, ah 4 18 _ 
EPAR=PAR 4 19 
IF (EPAR.GTeBIGGY) EPAR@RIGGY : 4 20 
MALL -GT.EPARD SMALL 
oS, AGSEPARSONE oe So a oe at ee et oe, Oe ME B22 
RHOZW (Ky Jol? : a ale M 23 2 
__ WeKedeDPERHOSG 2 
I CONTINUE 4 25 
2 aeT M 26 
L 
_____'00 4 K21 »MF __ 4_@% 
e “POGS JOGNE Dn gL RRR ST 
. UE Er ID Sn ee eS a ee IO 
RHOEWEKy Jel 4731 
RMAX=0. ape Semana EUIE? M32 
HO=NUADUMERHO» 
_ CALL FONKY (FUZZ 9RHOPSTAT »VEL EASY, TD DNS OG Bolt Coc ns ee SMR 
 TANGSW (Ke Je 3) /NIK od e2)d 4 35 
_____ COSN=FINE/SORTFI(ONE+TANG##2) whe fleet aie 2 4 36 
es WAK ode LISRHOMR(K 9 DD Pg sy es = . 4 37 
WK oe Jo 2POWIKo Jol D#VEL*COSN 4 38 
WikKyJedI=WiKe de 2)*TANG 4639 
MIKeJeS)SEASYPRIKe J) nett mi 4 40 
“SP (Kp JISPSTAT Eo Beet re yg ee % Nee NS oe a aM 41°77 
4 CONTINUE 4M 42 
= RETURN Bet enn er hoe ee ee ee en ee ee ee oe, 
ENN MH &beo 


——““STBRONTING DOWN SSS OOD 
: COMMON /EROS/ W621 560.4) 9P (21460) 
~ COMMON “/NERO/ MF SNF SNTSMUFFOLIMIT 
DO 1 Ket MF 
WOK SNF oe LD SWIKONF=1 91040 05S(W{KyNFo LONI KyNFo2g1)) 
1 WAK NF 92 D2WEK pNF~1 92940 oS#(W(K »NF 9 22-WIKyNFo22—92)) 
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“SUBROUTINE ENDJOS 


Cali, HEADS a a ee eR ee : 0 2 
CALL HEADA _ o 63 
ee CALL HEADLS reer gh a ee O28 Gils te nh th At Bet “ Oo 4 
WRITE (6091? 0 5 
WRITE (8.2) : a 6 
WRITE (1493) [?) 7 
WRITE (1454) = o 8 
WRITE (14.4) eek Sto o 92 
_. CALL ENDPLT ae oa eS . Ba: 0 10 
RETURN a oe | 
Cc od y oO 12 
TT" _FaRaat 25,201 sT),° END DF DATA SEY 6 ",40les") ) #O 13. 
2 FORMAT (°2%,40(9@°0—e¢ ENO OF NATA SET AR *,40¢*s") } Oo 14 
3 FORMAT (°2%.400°*!),° END OF DATA SET 14 *,40¢'@!)} } o 15 
4 FORMAT Boe 5 2 ok Se _ Oo 16 
1(30x" e808  * * #28 ocees 4888 * ongee goe8 ¢ f OF 17 
2 30X* -* - + » & s * 8 * 8 - * ot sy OO 18 
3° 30x* sss eee 8 © ry * ene * £ * tose Tf OF 19 
4 30xK° * ee ee * os ¢ Py * # - * ** s/s O °20 
"5 30x" ehete s “8” wen” weene « Tt a tt) en) |) ee en ee | 
_ ENO ae. 7 . : Q 22+ 
™~ SUBROUTINE. “BRIGHA’ : ae | 
COMMON senase W121 s6004)4P(21060) P 2 

MAN 
_ COMMON 7RERD/ MEINE SNT : F : P 4 
~ COMMON /NITWIT/ CLOWN, VULGAR ~~ ~ see Pp 5 
CALL HEADS F ep 6 
"TT" WRITE (606) tyes ee pee Pp 7 
WRITE (6593? P 8 


——-. QgWRilecl@e5). oe A 


CALL COVD (COTeVOTsPUNTZeNT) : P 10 
tF (L.NE.O) GO TO 17” TONG SPO eG Se Raat Aree ae CS AL 
CLOWN=CDT P 12 
[= oe VULGARBEVOTS ce ne Naeger ee RB IS 
1 00 2 K=1,NF : P 14 
CALL CUVD TA; BePUNTZ eR? - . PTS 
= _AX=A/CDT us, Me cts Sue N APE Gress 2 i : ae P 16 
AXX=A/CLOWN P17 
BX=B/VDT : uh ft fn _. P 18 
~" BXXSB/VULGAR TT ee r P19 
SUM=PUNTZ+B P 20 
————THRUST=SUM*3.161593.. OD 
WF2AS3 .141593%32.174 P 22 
“WRITE (694) WF AXsAXX Be BX eBXXe PUNTZe THRUST» K P 23 
TF (K.EQ.NT) WRITE (507) ; odie BM. che cn oitae a9 APS Fae 
“27” CONTINUE PO see ng FRI P 25 
RETURN P 26 
3 FORMAT (/20X» "DISCHARGE (CD) oTHRUSTIVD},AND PRESSUREI(PO) COEFFICIE P 28 
“NTS #47 7 7 “pp” 29 
4 FORMAT €10X91PG140520PF1005 54XeF300594Xs 1P5G1%0591X912) P 30 
5" FORMAT ES 1GX 9 SWEe ee LLXe "HE/SHE 9 OXy WESWEL* SOX, VOY SO LIX, *VD/VOR'g 7 P31 
1Xp"VD/VD=1° 9X9 9PD* gLLX* THIUSTILBF)*/) P43? 

° ome 
7 FORMAT (94°,5Xe°THRDAT®) P 34 
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= <EN0 > =, ae. ee a a ee a eee 
_______. SUBROUTINE EQUATE (KeJ NERD? he Dehn On Ot 2 GN eet oe 
DIMENSION KO1lde JO) o 2 
__ — __NENERN Btw eA AE Sie ie oe ee ee a o 3. 
00 1 L=1,N 0 4 
1 K(L)sJtL) Qo. 5 
RETURN (*) 6 
_ __... END Sat ale 4 , o 
SUBROUTINE EVAL (Ae ISW,ATED ae | 
_ __. COMMON /FANG/ F1994) 961956) faa R 2 _ 
O(MENSION A(4) 3 rR 3 
ZFRO=0.0 R 4 
Swe = PARR = Ch ne ee ee ee ee ES 
IF (A(1).NE.ZERO) GO TO 2 aR 6 
7 oo"" 22=Z2ERO ‘Se a" Us viet et aa . . R 77 
23=ZERO rR 8 
Soom SPREZERO eo as Mee gee a 9 
GN TO 2 R10 
~—L cine... ne 
22sAC20/RURD R~ 12 
7 EGER ACLS . R 13 
HN=HZERO(ETAD e sh Se amy Oy see Ir R 14 
"7" PREHOFACL-ATG) R 15 
2 CONT NUE R 16 
FIlSW,))=-Alad R i? 
Cee FISH 22MM Z29A(20OPRI ax = : R 18 
FU (SW, 3)s—-220A(3) R 19 
_..  FUTSH eG) E-(Z28(AI4)4PRDD R 20 
” GU(SWe1)2-AG3) R 21 
SURED Eee F(lSwW,3) R22 
jr= Cy - aa 
__otisue 145-2391 0(G)@PRD) roe nde tias 2, R 24 
7 “~~ RETURN Sep ee = hee eT ay Pe ee OAS R 25 
= ENN —_—=— = — et ae Sees wee . = - --e - R 26- 
~~~" SUBROUTINE FIASCO ~~ 7 Tos $1 
> COMMON /MUPER/ HA(22)HARI22) S$ 2 
—_GhiMMTIN 7 W = 
COMMON /NERD/ MF, NE yNT »MUFF pNEWKY m s 4 
1S COMHON /SPOR/ S160) 5S0(60) oS0P (60) oS1(609eS1P 160), AREA( 60) s 5 
COMMON /SEXX/ NASTIE,IOIOT s 6 
sar" —" DIMENSION X{22) s 7 
IF (NASTIE.EQ.0) RETURN Ss 8 
NXEMF ¥ $s 10 
“ DO 3 Jal ,NASTIE L pay $s 11 
nO 1 K=29MUFF es ne Te 8 = Bg Re See eee RS Nee 
~ PT KEK DEWAR 9 de BPFH UK 952) $° 13 
xt1=STP() S$ 24 
XT =soPty)OOCOCOCOCOOTTOOTOOTT g 
_ _.. CALL SMOOTH (X¢MF 52) A oe Ye pA ete aes ro: S$ 16 
DQ 2 K=2,MUFF ; S$ 17 
TNEXIK) S if 
RWR=SORTFIW( Ko dg 2 OO2 EW (Kod ed) 802) S$ 19 
TESTA=X{1) § 29 
TESTR=EXINX) Ss 2l 
LIF ttn TESTA)*( TESTA-TESTB) .GE.ZERO) TNSTESTA S$ 22 
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bog =. eSEe bad 

CN=SORTF(1 00/ (TN#8261.0)) easier ; __ S$ 26 
SNSCNSTN” $ 25 
7 WiKedeS)BSNPRWR OO tn LS, 26 
2 WiKsde2)2CNRWR $ 27 
3 CONTINUE S26 
VSSY = P{1) z 29 
____., 00 & K=151260 Ll A Ee Fe ES ee Oe ial Ee SS, ENO CBO 
4 PUK DESAMINI(PCK) ePVSSY) $ 31 

(F CIDIOTNE*O) GALL SAM 0S 82, 
RETURN S$ 33 

€NO . S$ 34= 


COMMON /ABLE/ AX(21) T 2 
———"COMHON 7FLIGNR/ WEIGHT SPTHROTSPANIC. pg 
COMMON /NERD/ MFeNFeNT - T 4 
——onear 0° ass SS Se ESE oS sgt og 
2E&N=0.0 T 6 
= KLOMEPIRROT Oe 
XHIG=PANIC ; Pes tite aes So TS 8 
—— TARGET=XMASSINT) aera Fie ye ogee cae " ™ 9 
DO 3 KOUNT=1,20 nes Loewe ssa) hy Rekn, Modes J 
~——~~xe(XHIGtXCOwsed.5 SOS T ut 
00 1 K=#1,MF T 12 
—~——— BRESSHXOAXIRD OS 
1 __ CALL PUNT2Z (Kol ePRESS) pS oe NT aicnte teh pha en en ie) wi iby sage Maya 8 Ws BL 
“——— TESTSTARGET=XMASSTL) OO ; T 15 
; 1F (TEST.GT»2ERO) GO TO 2 saci Be eke he ees eR: AS, ee Or 
“— “"¥LOWEX Tee oe oe ~ T° 17 
GO tn 3 T 18 
16 TRAC — ee 
3 CONTINUE : hei Otte 20 
a 2 SRETURNE Op ee pe Oe, ey T2u 
__. END ihe fetes EL RR ee. eee Be ee ek tei d ot Ne 
SUBROUTINE FONKY TFO22,RHOPSTAT, VEL. EASY» TEMP) 1 
Connon eA AUB e2LD sCPLDoZEMCVIDe ZA gNT MLZ) eGANZI ZED PRCASC ZL)» uUs2 
7 U 
COMMON "THERMO CPX13) eCVX13) eRAG uv 4 
"~~ CONT(NUE ~~ 7 REE BS STR og oom, AY + ORB E 
ONE=1.0 U6 
RAAT PS PERQEOSON Oe ey Se ° : us 
F=FuzZ us 
a): a a EE | TE. 
IF (F.E€0,2ERO) GO TO 3 u 10 
“~~ JF (F,E0.ONE) GO TO 5 arene 7 vu ll 
IF (F®(ONE=F).LE.ZERO? CALL BOMBER (*FONKY's1) ue 12 
—"——""¥sFe20.0 ~~ SS a a 
NEWK Y=X U 14 
3 = 
F2=X-DIGIT Uo 16 
STEN BBONESR2 oo ee ey eS EOL 
JENEWK VSL : usa 
- "keel Se a ee = . : ug 
PO=F1¥P2( JF 29PZ(K) U 20 
= ees eT 
DO 2 L=le3 _U 22 
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BRE IR sso 


CVKXILISFLECVIL pJIOF2ECVIL KD __...., U _ 24 
“ge JCONTIMUE -.° sto ee ee ae en eS Uo25, 
RAGSFUFRGASIUJIFFZERGASUKD dd 8 a. UY BOON. 
GO TO 7? “y U2? 
3 CONTINUE U_ 28 
rt -} 
TO=TZ(1) _. Uu 38 
TT (00.4: bales. Te Oe Fee ee See erie, 6 ce Gk ee 54 uo31- 
CPX(LISCPULed) 8 
CVXILYSCVIL DS é uo33 0°. 
4 CONT INUE Ui =34 
“= MAGERGAS(L: ee ee eee 
Go m7 Pe Pa eee hte cok! whee ke HED 3B 
~~S~ CONTINUE WA Gees Te aes U 37 
save =e SPOSRENAUY 8 Se ee ee os he ee eg SU SD) 5 
Tn=TZt2b) Uues«39 
DN 6 Late) Uu_40 
TPX(LISCPILeel)D UT 41 
CYX(LI=CV(L 21) : Sacco U 42 _ 
ING. = CONTINUE. OC n ie . Uu 43°77 
RAG=RGAS{(21) ui 4&6 
as 6O.10.0 << =. = Se eS hay rans | Cr 
7 CONTINUE Ui 46 
9 Vere 9 . ° 
PSTAT=PRES U 48 
— TEMPS TRANK OQ 
| EASYSE 3s met, ah A ss _U 50, 
VEL=VELOC (<a oP ee ot Rey ieee yay UM SP ae 
RETURN ui 52 
3e< 
SUBROUTINE FREAK (PRES sRHOsUUeVVeMYeNX PO .TOoDEGeTeXMeVELyGAM) = 1 
~~~ common “/COUNTZ LCT : poeA pow eens fet a MS OR 
COMMON /NERD/ MFyNFONT ee Ce. YO FL 
COMMON /STUPID/ FZ(21,60) : vo 4 
COMMNN /THERMOS CPX(3) -CVX13) »RAG v 5 
UMMON / ’ ’ o2l)s * ew ° e 
__ _.._. DATA ONE/L20/ . Le Sy ee tes a \ ne 
P=PRES v8 
- _R=RHO Doe seetes | Sentenae oh pet Satie Aa . ¥. 9. 
UsUU vo o10 
V=VV Voit 
M=My¥ Vf2 
NENX : = Le ©) 
TT ?FFxVRareyee2D ~ ra ns oe a7 Z me . Vv wa” 
XsFZ(040N) vos415 
- Y¥=x*20,041.6 °F Sm eens eee vy 16 
NsY¥ Voe«uf 
* = oe 
__t xsN Se et ee b 3 _Vvoo19 
FF Qey=xSSOSOC~CS:s‘—s*SOSSSSSSOOOOOOOS eat pepe eS 
FLEQNE-F2 - vo al 
wT RAGS LORGASTNI+P2SRGASINGD) OOO Vo22 
DO 2 K=1,.3 Vi23 
CPX (KI=FILSCPIK NI th eeUP I KeNe1D V#6«24 
—2___CVX(KIZFLSCVIKNIFFZSCVIK NOL) : : v2 
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SOs ee FO Oe ee Oe eS Cee TE EON RG = og, SURE Ba 


3 CONTINUE = rena we ee ee TT 
TEMPaP/(RERAG) a a Vv 28 
______ TZ8 TSTAGICPX oe TEMP oO) Sa OS <2: ee er. ae 
PZ=PSTAGICPX TEMP sT25PeRAG) v 30 
TANGSV/1) v3 
ADSATAN 
NEGREE=RAN*57.29578 v4 
ri SEX=CSUBPITEMP) © fo epee Vo 347 
HEX=C SUBV{ TEMP) vo 35 
~ GAMMASSEX/HEX 7 eo se ee mmr" vy 36 
SONIC=SORTF (GAMMASRAGSTEMP D Vv o37 
CLoc=S0R 
7 MMACHEVELNC/SONIC, ee 9, 
— PN=PZ v 40 
TWo=T2 ene kee oreo aS, ox . vo 41 
BEG=NEGREE Vv 42 
T=TEMe ' Vv 43 
%M=XMACH V- 46 
___ VELSVELOG, aa % ae vo 45 
GAM=GAHMA ‘ Vv 46 
~ RETURN pede = or leet Mt Pe) Beet ee 
4 RAG=RGASIN) 3 : Vv 48 
00 5 Kates v.49 
5 CVX (KD =CVUK SND vo 51 
“60 10 3 7 Cp Pe Oe ee Cel ay a OGD 
c vo 53 
— 8 Kame L000 eN mr mn ae enn = ay 
CALL AOMBER ( *FREAK~-FZ° 4K) v.55 
50 
Cc , v 57 
END 3 ee Ee ke en ME SRS 
SUARNUTINE FRITO w ot 
' “COMMON /FUBARY FIGF2eF3eF4,F5° ee W 2 
READ (501) KE oK2 eK3eKG9K5 . w 3 
° ° ? ° of 
ZERO=0.0__ w 5 
To FLEKL ns) pies DS ae 7 w 6 
F2=K2 w sf 
a 
F4S=K4 w 9 
——osko.._... oe ee 
SUM=F14+F2+F 34F44F5 Wohl 
a “LF (SUM.EO.ZERO) CALL BOMBER C*FRITO'SIP Tb 
WRITE (6,3) FheF2sF3eF4,F5 ¢SUM wW 13 
7" FRSER/SUM ; ir as aes eee \ ae 
F2=F2/SUM Wo15 
= 16 
F4=FG/5UM w 17 
5 eR5 7 SUM sl et, Cte a ae eee bee aie ee teed is wt 
WRITE (603) FleF20F39F4sF5 w 19 
RETURN” Ne tage ee Cee ge ke eee Rey er YD 
c w 21 
emp Geena 1 0)-1.1-) ae © 0) 0) eee 
2 _ FORMAT (/20X,* INTERPOLATION FACTORS*//20X,515 } w 23 
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MA ° . 
Eno sisi etiwtw ws Yer PW Ge: 
SUBROUTINE FUBARA x1 
_ __... COMMON /FUBAR/ FLeF2eF3eFQ,FS "ee x 2 
AlsF1 x 3 
A2sF2 xX & 
== AS5hG ne ees 
ASsFG x 6 
= peed bs. Gilae px hoserpSettee siecle gow isnt as gp Waker 226 ; > 
Fis0.0 Se rath, Sipe atte oe Soy x 8 
a F220.0 6, nee tp age gees 
F320.0 x 10 
F4e1.0 x Tt 
F5=N.0 K 12 
=~" RETURN, SF ERM ee ESTE gS Fg ; x 13 
Sri ENT UAB) he ee ae Saclectee, on bebe x4 
Fl=Al . xo 15 7 
F2sA2 K 16 
Tt PSEA ee ee ee Le 
F6=A4 ¥ ‘ x 18 
Ss F5aA5 SS ee ee es | ae ee : eS See x 19 a 
RETURN K .20 
Se moe ENDS tae eee Oo hey ae ce Oe ey ee rCSaS, ty K 2ie 
SUBROUTINE GRAFF v1 
4M! ° * , 
_ _____.. COMMON /EROS/ W100) ,011003 PT oy UN ~ SE, 
~ COMMON /NERO/S MFANF NT MUFF eLIMITe NASTY v 4 
COMMON /MELTAS/ OX Cea tae dad aed, oe GK oe > Ales, Gibtens WE HBS f 
COMMON /WALL/ XWALL (100) ¥ 6 
DO 1 Ks1—NF Y 7? 
Se WR ee ee ee 
ee + XWALLIKDEW(KD eee . ae = + ee - —_— =e om -—e-e = - = Y 9 - 
“OIK>=SOUK) ‘ Y 16 
pone: Veer QUK#NFOSSTIK) | wh ie pa eet ek ean. hk ot Ts pee ge oe at = SW 
CALL FARGX (WeNF) : Y 12 
CALL FARGY (QeNFeNF> . Y 13 
RETU 
END 15- 


~ SUBROUTINE GRAPH 


~ COMMON /SKALES X29V2Z_9SKeS¥ 


ee a a ee eo | 


COMMON /APE/ KITLE sLABEL(19) »NASTVA7) 


COMMON /TYME/ T,FLIT . 

K N XCLIe ¥CLD 
Nata BIG/=0.0/ sHT/O014/ gHH/0 2 10/9 W/9020/92/000/ DUDES 20, OF » RWIDE/E 
16.0/¢VHIGH/10.0/ KS/1/ 


re hehe re he hare ree Re < 
SOOM WN 


- Cc — - 
CC enecccneeccne sonneee o= 
c 10 
Sao CALL CLASS OSERODL SESE, a 
anes CALL CALCHP 10.550059003) _ ; ' 2 12 
A1Gs-0.0 . 2 13 
i a8 RETURN ns rt Ns ht Net i z 16 
C : z a 
Co edeceiewacn nts caceecs -- 216 
1 
_ ENTRY FARGK(X»NPTS) ees ; z 18 
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= waNPTS. Se eee 
CALL SCALE (XeXWIDEsNeKS,DUDED 2 220, 
JUNKANSK S41 ; 2 2t 
CKRUQSUUNK#KS B28 
X25x( JUNK) Zz 23 
SX2X(KRUD) 2 24 

ALL HEA Z 
____ WRITE (601) XZ2eSKo(RlIvedebeN 2 26 
RETURN z 2? 
7 Reh Nha Se a SA a SN i he he Gh he ne He 
C at etait ney z 29 
Cc * Z 30 
ENTRY, FARGY(Y,NPTS) 2 at 
N=NPTS ~ writ <p oon pa eect ee Sede 2 32 
CALC SCALE “TV, VHIGHIN. KS, DUDE) as a : ‘ 2 33 
JUNKEM*KS#1 oe ae ee ee ee eee see ee z - 34 
~— —"—— KRUDESUNKSKS OO 2° 35 
SY=VIKRUD) 2 36 
VZ=YU JUNK) ~ 37 
____ WRITE 1692) ¥ZeS¥ ol doVi sd odat ond as oo 288 
7" RETURN ee ote sey ny pons es 2 39 
7 by SER ae eer ae! en : 2 40 
Cc ane meee Zz 41 
c 2 42 
—  “ENTIAY NERPLY =... ne a 
CALL SYHBNL 10625 +80039HHsNASTV 9258) 9 a hey Oe ee dS, Re eae 
“CALL SYMBOL” 19.625510.1,HH sNASTY (3152520) : er aa +) 
_ GALL AXES (2929 4X* gol oXWIDE 92 0X29 SXe DUDE) eile’ OES conte Se ode 86 
“CALL AXIS (ZeZ9°Y* o+1eYHIGH pW e¥Z 5 SY¥»DUDE! Z 47 
CALL SYMBOL 126002001 eHTsLAREL eZ, 16) Z GB 
CALL SYMAOL (BIGsAIGsHTe*TTERATION NOos"s2514) z 49 
CALL NUMAER CAIG BIGHT eFLIT oZ9n2) Big a ge z 50 
CALL SYMANL (BIGsBIGeHT et=TIME2 "9 2,6) z 51 
ins _XXXT=T#1000,0 Bn ie fn Ts ae ah 52 
CAL!, NUMBER (RIG sAIG HT eXXXT eZe2) z 53 
CALL SYFBOL (B1GeRIGHTs? MILLISEXS*%,Zo139 Zz 54 
Cc ‘ Zz 56 
“CT eeeee---- See wenn neee= a pier i Zz 57 
Cc z 58 
“ "ENTRY LTONIXsYeNPTSsKSYM) ~ : : . z 59 
KakSYM 2 60 
NSS a ee a a oe ee ee 
JUNKENSK S42 Z 62 
"(SUNK 2X2 : . 2 63 
YC JUNK 92YZ Z 64 
~ — KRUNE SUNK EK ST mn memes eee Fo 2 65 
XUKRUD 25x ZI 66 
= TT 
CALL LINE (XoVoNoXSen] pK) : Z 68 
“—" RETURN = aoa ee 2 69 
c z 790 
[ or eee ae 2 ray 
Cc z 72 
——— ENTRY LOONTXGYINPTSY SOOO SSS Ts 
NaNPTS 2 1% 


273 


AEDC-TR-73-29 


KRUD=JUNK#KS tae eae I % 
K(KRUD =SKX " eon bus te Z Tt. 
Y¥IKRUDP=aSY z 78 
= “~y{JUNKI=¥Z ~~ OCS oo PR am LACE (Soar 
X (JUNK 9=XZ j z 80 
oTeNne Ve 4 
RETURN Zz 82 
ae TN ene ene enn gg 
oe nnn enn nee eee ae wed Ie oh se ae 
SOa> ong hn Oe SPs Ge te PP =F ae se z 85 
ENTRY NEXTP Z 8b 
oLlele a 
RETURN: Se Sn ch cabs eater need eter aie Be Oe 
~ Crook dT =A z 689 
Perse eect = = z 90 
2 91 
ENTRY ENDPLT Z 92 
CALL CLASS U*SEROUI4G2*) 
RETURN zZ 9% 
ee ‘ - 7s" 
c SER eee ioe | eee 
--¢ sate oad NE ar a hn ee ee ee Pete a ey 
1 Format (* ATS ea Lt at X-ZERO 2% e1PG15e06eSXe UNITS/I 2 98 
H =%»o r 
__2_____ FORMAT U0. 20X,*¥=PLOT. PARAMETERS. _V=ZERO © 1 ,1PG15.6,5X,"UNITS/! 2 100 __ 
INCH =*,615,. 67/1011 0%, 5115, 0PF10. avr) 2 101 
Pele a—al END 20 teh tees eet ice tk ee CEN OSe se 
SUBROUTINE GRONK (FU22_PP,RHO»VEL,EASY) — "AA 1 
COMMON et A(Bo21)0CP (3021) CV(3921) WTM(21 ) GANZ (21) sRGAS(21)9 3 2 
COMMON "/THERHO/. CPRCBsCVX(3)RAG ;: aA oo 
FeFuzz AA "5 
DP hk Se Ro at hae hs Rs 2 Be 
ONE=1,0 AA 7 
RO=0.0 AA 8 
ie (FeEQ.ZERO? GO TO 2 cor Va ae 
ok (FEQ.ONE) GO TO 4 Be oe tee ke AME WO! 
IF (F*(ONE-F).LEsZERO) CALL SOMBER (*GRONK's1) AA IL 
MeRS20600 fs es Fs stare, 3 AA 12 
NEWKY=X AA 13 
DIGI T=NEWKY AA 14 
Foe X=DIGIT a toe ae — Aa 15 
SFRRONE SRO. oct 2 ce 29 eee CA ee By oe a A AA 16 
J=NEHKY+1 AA 17 
eae K=J+1 econ pects sod Ace as cet oe AR S18 
~~ POSF1L P21 JP+F2ePZ(K) ” aA 19 
TO=F1*TZ2( 5 )4F2*T2(K) AA 20 
al 
CPX(LISFIFCPIL o JD+F29CPIL K? AA 22 
TE VKILDSFLSCVIL JIFFZSCVIL RD” Te AR 28 
1 CONT INUE AA 26 
ee RAGEF LARGAS (JV+FZSRGASIK) yt me Uys eee i . AA 25 
GO TO 4 AA 26 
TIN ee 
aN ee et i ee Dlg A SO os 
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—_ DO Stabs Cin ee ne ee 80, 
CPXILdSCPILG1) AA 32 
CVX{LI=ECVILeL) . sO sens tt awidyiay. coe adn AA 32, 
“CONTINUE Fr ea ‘oun aA 33 
RAG2RGAS11) AA 34 

A 

& _ CONTINUE a aoe . ; AA 36 

To APHSPZE21). "COO C—SSC—“‘SNSNSNSNSNSN i . AA 37 

. TOeTzZt20) A 8 
00 § 121,43 AA 39 
CPXIL)=CP{Ls21) AA 4&0 

VX{Lj= e 7 

SS CONTINUE a 42 
RAG=RGAS (21) AA 4&3 

fhe = SGN IO 56) nn Se i ; _ Ak 4 

é CONTIAUE AA 45 
CALL TROPIC IPO, TOsP fF ,OEN, VELOCE} AA 4&6 
RHO=DEN Sr aay YES | 

eee VEU SVE OG Se es ee F he AA 48 
EASY=E AA” 4&9 

wee MBRTURNG. 0 i eS 2 a iO 
END AA 5l~ 
FUNCTION HANKY (A sPANKY ¢TOSAGR) an 1 

M4 N ) A 

ALERT Se Se a AaB O33 
Aisa(2) Se ey er eae SARS © 6 
A2zal3) AB. 5 

oe XEPANKY Stee EN bee ee ee ARE TG 
T2=T0 AB OT 

Toy RR ASESAGR cf Se ee ee ee ee Se a 
POWER=RGAS/AZ af 
FUDGE=X**POWER eee ee oe tee See erin -—* aB 10° 
BARF=AL/AZ AB 11 

———" TRAF2. A280, STAI mmm mre ae” 
TxT2 AR 13 

an a AOS ee ee 
TTZ=T/T2Z . : aB 15 
— EPAR=IT2-T) 9 SARFSITZOT)@TRAFS- apa oe ee es soo" AB 167 
XCAX=EXP(EPAR)D AaB 17 

~~ FRAT=XLAX*FUDGE OO—~—OTCTCTOOT meme ern eso AR OB” 
TCOMP=TRAT#T2Z AB 19 

oR ES TCU PRT A 
T=TCOMP - AB 21 

~T~ CONTINUE rapR re, STI Nee a pi eT aie X eee yt AB 22 
HANKY=T aB 23 

OT RETIN OR OT 
END AB 25= 

————"SURRUUTING HORNY ae 
COMMON /NERO/ MeNoNT eMUFF/STUP ID/F( 2160} /SUPER/R 121-60) ac 2 
“COMMON "/SPOR/~S (6095 SOC 605 ¢SOP (4601257 (60) SEP(601,AREA(60)~ "AC 3 
CALL OREZ 1F¢1260) acs 

sT———"— CALL HEADS TT ae yee oe Ss ossemermere AC 5 
ON 2 JaleN ac 6 

SFI ela,” ee Rn te 
ROGER=1 .0/AREACJ) ac oiB 
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0 Ree a oe ee eee Rg 


1 FIK ee SIMERIK SIRI De UIIPIRIMSJI-RIL A JIIOROGER ==“ si 
WRITE (653) So lFiKe dd Kul gM) ac 1 
x ale CONTINUE __ Nn et a nee eens eran A : oh? ac 12 
~~ RETURN ac 13 
c ac__16 
“TST PORMAT (10X915e2Xe11F10.4/17%e010F10.4/).. ¥+;+a&C 15 
_._.’__. END aC l6= 
FUNCTION HOTS (CP.TSTAT,TZERO) ad} 
DIMENSION CPC1) paws beta MS ao 2 
- “aeCPt1) : aD 3 
BrCP12)%0.5 aD 4 
C=CP(31%0.3333333 ad.)6 SS 
Oh, ysTSTAT eee ot Cs - aD 6 
~~ Xe TZERO AO Oo? 
H=(X-V¥DS( ASKS (X+Y 140 81 XOeZ+NSY +882 DD ads 8 
= HOTS=H . apd 9 
RETURN ao 10 
A - 
= _SUAQOUTINE HUNT ; r\ a | 
~ " COMMON "/SPOR/ S$160)eS0160) SOP 160).S1160),STP160),AREAC6O) . aE 2 
_CMMMON /NERD/ ME «NF NT ae 3 
77" pO 1 Kel,NF ~ and AE. & 
S(K)=SO[KI~SUUK) AE 
—~T—RREATK 1=S (RD *TSOIRD*5IOK))—OCOCOCOC~C~CSOOCTCOCOTTCNCTTSSSCECSS 
_ _ LNTTLE#1 Shit erate, . : 6. (AE OT 
SMALL=AREA(1) ac O88 
__ _. OM 2 K#2sNF Aa A ae aed, ee ee i ae ee EY “FS 
~ "TF (SMALL«LESAREAIK)) GO TO 2_ AE 10 
SMALL=AREA(K) AE 3) 
=K 
2 CONTINUE . aE 13 
TTT AGONYSSORTFESMALLY To men ees AF 6” 
CALL HEANA aE 15 
WRITE (604) LITTLESSMALLsAGONY ~ OO TTT TOT me mn = Ak 16 
WRITE (6.5) 4€ 17 
= ? . 
. AGONY=AREA(KI/SMALL aE 19 - 
7 ~~~ SNAFU=SORTF (AGONY D ig es i Arey ge 8] “"" A&E 20 
WRITE (496) KeAREAIK) »AGONY » SNAFU s AE 21 
~"3 ~~ CONTINUE ig, Be age <1 “AE 22 
NT=LITILE AF 23 
7 tra 
c : : AE 25 
ae haat a ; AE 26 
& ___ FORMAT §$(/20Ke°MIN X—STA Be lhe 3Xe*MIN AREAS* oF9,4,3M2" EFFECTIVE AE 27 
URADTUS =*6F10.4 / ) AE 28 
5 FORMAT (733K e*AREA® gL 2Xe*A/SAS% eV 1Xe *RIRG* Fb AE 29 
RMA Z0Kel 59 74) 0) 
— —. ENO Dektded- dead, Gp » bettas! altel REL ie 
FUNCTION HZERO (ETA) aF 4 
ne _ COMMON /STAG/ (80212 9CPU3/21) oCVESy 21) gMTMEZ1) oGAMZE 219 RGASI21 05 aF 2 
UPZI]V Ve TZIZLIHZIZ1) AF 3 
ONE=}.0 ar sw 
————TeR=O.0 ——~C“=‘“SOSOSOSOSCSCSCSCSNOOCSCSSCSCSON 
HZERO#HZI21) AF 6 
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2 WSCA: i ay Shia —— = — SCAR 


TE {X.EQ.ONE) RETURN pe Mo Dc ee SS, ea oe, = A 
1F IX.CY.ZERO) CALL BONAER C*HZERO*s1) ar 9 
______TF_ 1X.GT.ONE) CALL BOMBER (*HZBRO%2) A 
X=x*20.0 AF 1! 
N=X AF 12 
R=N AF 13 
wo REROR. oe Sl a er te pee dros BES TS 
F25R AF 15 
__FISONE-F2 sist han Al eh gta ee ay pA oe spe tse the AE Oe 
HOHOSHZ INGL) #6162 (NO2 2 8F2 AF 17 
HZERDsHOKO . AF 18 
“SS MEQURND 20 cso Se ee ng eee ee Po Ee 
ENO AF 20- 
———" SUBROUTINE ICHY ems AGT 
COMMNN /COUNT/ Lok AG 2 
————" COMMON /NEROS MFGNFQNT TT ag 8 
COMMON /PSIA/ PSTAL16),NPSIA AG 4 
CHMMON TYME? YeELIT ..”®©§»©»~———_.....——————”=C*WE 
ZERN=0.0 AG. 6 
NPSVACO, em ee re ae” RES MLS Ee AG ‘7 
READ (5.3) PSIA : aG OB 
Feo OOY) Kel ehG. ct din 3 Gc a ae ee a ee ee” AGL 9 29 
IF IPSIAIK).LE.ZERO} GO TO 1 AG -10 
2 + 
PSIAINPSIA)=PSIAIK? AG 12 
T_ CONTINUE © 00 UT ee gongs Cee a pe ae AG Se 
1F (NPSIA.NE.O) WRITE £504) NPSIAyIKePSIACK) sKeLeNPSIAD AG 14 
ge ERS Se er a 
LL=0 AG 16 
T=0.0 A aC I 7 
FLIT=L . aS 16 
Seo =eCALLIERONO 0 ee ne ee ee a ee ee ye AGE She) 
CALL NAVSEA — 2 voce eee AG 20 | 
“Call GRAFF OOSOC~COSOCOCS ot ae em a “—"" AG 21 
CALL STAGG AG 22 
‘> = GALE Static. ==. oe ee eG ee 
CALL HORNY . AG 24 
SG REL BEI SR See nome AG 25 
CALL FIRST AG 26 
- DOF20KESINE ee ES AGN SOE, & 
IF (XeNE.NT) CALL PHINOU 1K) AG 28 
G2 
CALL TRICKY AG 30 
"=a > CALL-OUTOUN. 7 ee ee eee 7 AG 317 
RETURN AG 32 
"Cr > sun Op wat eT en eT ep ee te aT eo ee ae ee AG bee an 
3 FORMAT 18E10.0) AG 34 
° e as e 
END AG 36- 
“SUBROUTINE TSQRART mom mn ns pig 
COMMON /EROS/ W(21 96094) 9P121960) - . AH 2 
i. COMMON’ 7NERDZ MF NF ENT MUFF LIMIT) NASTY AH 3 
COMMON /SPOR/ S$(60).S0160) »SOP1602,51160)oS1P1601,AREAL 40) AH 4 
° > 
: COMMON /SUPER/ R121.60) - . AK 6 
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DIMENSION X(100)+ ¥(100) : ert AH 8 
IF (NPSEAJEQ.0) RETURN = + °° AH” ~9 
TF LUNPSTA .LE%O) OR. (NPSIACGT 016)? CALL BOMBER I°TSOBARSS?,1) aH 10 
ZERO=0.0 — Sa ete) eS 7" AH LL = 
ONE=1.0 aH 12 
=~ ~MAXSOSL. > 7) ee a Le 
wo GALL HEADB sna ae ...-. AH 16 _ 
WRITE (8,7)" AH 15) 
7 CALL NEWPLT eH 
CALL LOON (XWALLTSONFI aH 17 
CALL LOON (XWALL »SI»NF) AH 18 
6 JERK=1eNPSIA : an 
KOUNT=0 a ee A AH 20 _ 
(= — = APALZEIERK. 2 Teint AH 21 
TARGET=PS(A(JERK) seus cage ne ck. aot pia h ia in aos” AMG B22. 
TARGET=TARGET #1446.0 aa ae AH 23 
NO 2 Kel »MF AH 24 
eos MP adeeeNee oe eee ee ee 
m OP=P(KeJI-P(Ked—L) | oe oe, A 6 
~~“ LF” (DP.EQ.2ERO) GO TO 1 7 aH 27 
F=P CK eJ)-TARGET ; aH 28 
"ESE sD aes ea shut woe = eer a eee a wae ie ote maar ("| 29 = 
IF ((FeLTeZERO) ORe(FGTONE)) GO TO 1 AH . 30 
SUNES 
KOUNT=KOUNTS 1 AH 32 
X(KOUNT =XWAELT U=LDSPORWALL TS SFVCT aH” 33°77 
¥(KOUNT)=R (Ko d—1 FOR (K 9 J) SFVCT AH 34 
“TF CKOUNT EQSMAX) GOTO 5S” OO. BS 
1 CONTINUE AH 36 
—2 Continue — A 
00 4 i Jel oNF aH 3A 
KJEXWALL IUD ee Re ee Tt AL ee ary coeser sores aH 39 
DN_3 K=2eMF Bio est A tne Bon Re on ieee te le ee ns x FR OO 
DP=P(K,J)-Ptk=19d)_ AH 41 
IF (OP.EQ.2ERO) GO TO 3 AH 42 
F=P{K,J)-TARGET aH % 
F=F/DP Sa eee Soak Sa ae verso van an ee AN SOR 
IF (CF.LT.ZERO) OR. (FeGTeONE)) GO TO 3 AH 45 
KOUNT=KOUNT#2 met eat ero eho ha eh Os AMER a, Th AH 46 
X(KOUNT =XJ AH 47 
YVUKQUNTI ERI K=1 DIMER IK 9 J) 81 ONEMF) aH 48 
KOUNT GT MAX) AH 
= CONTINUE = we Sto ME duct BS etic 2 6 ee, ARNESON 
4 CONTINUE AH 51 
5 CONTINUE aH 52 
“HF (CKOUNTSEGLO) GO TO 600 BH 53 
WRITE (8,8) PSTA(JERK) » TARGET aH 54 
WR (899) (KeX 2,¥(K),Ke1,KOU aH 
_, CALL LION (Xe¥eKOUNT )JAZZ9 0 AH 56 
6 CONT INUE tes ees eet a =< AH 57 
CALL NEXTP wr . : AH 58 
WRITE (C&,1G) °° . . aH 59 
RETURN aH 60 
Cc AP G1 
.. L___ FORMAT _(/20X* PRINTOUT DF CONSTANT PRESSURE PLOT VALVES */ } AH 62 
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W FORMAT _T7Z0Ks *YSORAR ST FIO. 5, PUPSTAD*s SXcFlOols PSFAIZ | EW 63 
9 _— | FORMAT (/20020X,S11SeFR.3eFTOIIS DD. ‘ AH 64) 
19 FORMAT (/20X,"RETURN FROM “"[SNBAR™ */ } aH 665 
END aH 66- 
FUNCTION LIRARY (SORFT) al 1 
SORFT=0.0 al 2. 
TT LTR VED ee 
RETURN Al 4 
“"" ENTRY COSRFEOX) al 5 
COSRF=CNSIx) al 6 
RETURN Fa hal Cae oe . ae 7 py patie id aed al T 
ENTRY SINRE(X) . Al 8 
$ =e ° 
RETURN - al 10 
=A ENTRY COSFIX) Roe ae eg oe al oli 
CNSF=CNSIX) al o12 
“UT RETURN SEE hep ‘i AL 13 
ENTRY SINF(X) al 16 
STINFSSINIXD aT 15 
RETIUN : al 16 
"—" ENTRY TANFEXD 7 al 17 
TANFETANIX) _ ab oa 
RETURN al 19 
ENTRY SORTFI(X) Al 20 
=O6 a T_ 
_ 2 IF €X%eL8 0.000) RETURN _ sar . AL 22 
SORTF=SORTEX) . 7 at Al 23 
RETURN . AIL 26 
~~ ENTRY ATANFQXP UU UU ne = Al 25 
ATANF=ATAN(X) al 26 
Sa 1-2 (|, | Ree 2 
ENTRY DUMNUME X,Y) al 28 
“ PUMOUMeY pres Z eetge or tay rae? «be, as AL 24 
IF UXeLT.¥) DUMDUMSX — AI 30 
Pipe RETURN ~ ~~ A yee Sang Wag) OE . ° 3 Al 31 
ENTRY TANDF(X) AL 32 
rd e : a 
TANDF=TAN(WNRGH) : al 34 
“ "RETURN - Seeger ey, eae f ae Cee . Al 35 7 
END Al 36- 
SUBROUTINE LINEAR (TARGET sX NASTY, F1,F25 315 32eNOCON) AJ 1 
DEMENSION XO1) " AJ 2 
= se Ps a a 
NXENASTY as 4% 
NNCON=1 . . : - ab 5 
TF (NXeLTe2) RETURN AJ 6 
- —- Noconae nee a eaiheeee es Sahar Uae cay ae 
IF (NX.GT.21) RETURN as 8 
Fy 
‘ GLsTARGET-X(14 As 10 
“—""" G2sx€NXd-TARGET “~~ "> 7 7 7 oats = 5 : ay oli 
SUM=@G2*G) AJ 12 
“TF «SUMeLTSZERO) RETURN cane , Ald 13 
BO 1 K=2—eNX AJ 14 
J - ak ae Se ee ee ae AT es 
G2sTARGET—-X(K-1) AJ 16 
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GI=X(KI-TARGET Ay if 


IF ((61962).GE.2ERO) GO TO 2 tee chad > ons & fs 18. 
T CONTINUE 5. Gone. fe ae AJ 19 
NOCON™R et a price WS 20). 
RETURN AJ 23 
2 NNCONS5. aj 22 
—————<sA261eG. SC ae 
_____ IF ISUM.EQ.ZERO) RETURN APS Shs ee el. oR TB 
NOCON=0 Se Peo AJ 25 
FIsGL/SUM Bs A Ee te LA 
F2=62/SUM << oe AJ” 27 
Jt=J-1 : AJ 28 
—— ge. i i eo 
RETURN - 253 19-pen creer Soe rg TN Oa a eo SO 
END AJ 3l- 
__ SUBROUTINE MAINP at. ako 
: Se aK 27 
COMKON /NELTAS/ DXeDYeDT pDY2 0T2,0T4 : AK 3 
, K 
____COMMON_/NERD/ MF yNFONT ak OS 
COMMON JTYMES” TSFLIT agg pe ea ee ep a gle ge AK" 6” 
ae pee ot Se TS Coa Ooh OF a meee es eae) LORS, 3 GE 
KOUNT=0 ee a “ ak 7° 8B 
CALL’ CARDIN : AK 9 
ALL AR aK +) 
= CALL GRAPH : ; _ OKO 
~~ READ 1556) NTIMESSNEWKIE, IDIOT - AK 12 
AK 13 
. IF CIDIOT.NE.O) GO TOT — RP RB NR a Ie LG 
CALL _ICHI : AK 15 
———6n tO? | AR 
1 CALL RESTOR = 0 tal __. aK OY? 
TF (IDLOT eC HOF CALL MEYER ea ene ee SST a tee AK 1B 
C : AK 19 
"2 __1F CINTIMES*#NEWKIE} E00) Go TO 5 ee a ig ae AI Oe 
CALL HEANS ; aK 21 
“—~—WRITE (6,7) NYIMES<NEWKIEsIDIOY ae . AK 22 
iO sites etka” ig Nh Ne SE) DT TS ~ rl eR ee 
00 4 K=l,NTIMES . AK 26 
DOS JalsNEWKIE eK 2S, 
T=T*0T = AK 26 
LeL+1 aK 27 
CIT=C aK 
"CALL CYCLE ee, eee AK 29 
CALL RANDRY AK 630 
CAPLU RTRSY to Si hat ee BE hn ae fay Be ele i RU SD 
CALL NOWN AK 32 
CALL NOONE AK 33 
CALL FIASCO aK 34 
a CALL STREAM. $s aed ee _... AK 35 
3 CALL TRICKY . rad AK 36 
24 GALL OUTPUT eee ee ee he et AK O37 
Cc AK 38 
5 CONTINUE AK 39 
CALL STORE an #640 
RETURN AK 41 
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c AK 43 
ct Peed eg ae Pe See nee eae | aK” 44 
4 FORMAT. (1615) Se Se AK 45 
7 FORMAT (720X,*NUMBER OF BERTODSET, 1573%s 1 TEMATIONS7PERIODS* 71353 aK 46 
1X, RESTART =zt,il/) AK 47 

AK 4&8— 

SUBROUTINE MAXIE (XsNOEXP =o a. all 
‘DIMENSION X{1) aL” ? 
Se SINGNDE Rs ee eae oe A a ee ee aoe AL 3 
J51 ; AL 4 
IF {NeLEol) RETURN * AL dS 
BIG=x11) : t 6 
DN 1 Ke2N ere Bats SP oe . a. 7 
~~ TF {BIGSGTLK(K)) GO TO aoe Spe ee = a ‘ al 8 

Jak Sa tees ae es Bed gee ie SAL ESP 
7 “RIGEXEKY OSOOOSCS™S AL ~ 10 
1 CONTINUE AL Ll 

x= J 

RETURN AL -13° 

“7 ENTRY MINNGETXSNDEXD ome AL 14 
Jel re et 

= Nene Xe ar va 
IF (NeLEe1) RETURN AL 17 

= 

ON 2 Ke2qN ; cod is e AL 19 

IF (SMALLSCTOXIND) GO TO 200 ee een AL 20 

___ dak ee bi et nse ae, tee ee ie see TA LS 
SMALL=XIND AL 22 
2 CONT INUE AL 23 
NDEX2J AL 24 
RETURN be et Ee ee te os ., . AL 25 

END pede ; see AL 2657 

_______SWBRMUTINE MEYER of eS A 
7 : AM 2 
cane JNERN/ MF oNF NT AM 3 
COMMON /STAG/ A(B 521) oCP(3¢21) 9CV13421) gWTME21) pGAMZI21), RGASI21) re 5 


“UPZLZL do TZE20 dg HZI21) eRHOZI213 6 
DIMENSINN X{60) 

- co A = a Sea So oo ay 77 
QNE>1.0 AH 8 


= 
READ 15520) NANKER,sNLAST oPMAXG 
“"" NW & NLAST — NANKER + 1 Ba 9 2s ee Me ot 
READ (592) (XK) eKeL Ad 
TOT FF UXGLD CGT. 0.03 GO TO 2300 OO oom reese 
Xf1) 3 - XO) 
a VOTee Relea 
22 X{K) = XIK-L) 
-- —"" ga ro 24 Seo. See? ie ede, os ON Pt Abeba Stu ieee 
23 IF {N oLE. 8) GO TN 24 7 
“READ (5521) (XEKDKRogND UU * : Oey eae 
c CONVERT PSTAG/PSTATIC TO PSTATIC 


nn 25 Ksl.N 
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6 
_ 27 WRITE (628) {X sPBDUNDIK1 sK=NANXER SNF) 


"25 “CONTINUE 


= K - + 
PROUNOIS) = PSTAG/X(K) 
IF (NLAST .GE. NF) GO TO 27 
M = NF — NLAST Pie. «4 gt yo 
00 26 K=19M 
LAST4¢K) = +K=- 


RETURN 5 . -- eee sé a, tae 


20 FORMAT (215,610.0) 


“21 FORMAT (AG10.0) 


END 


SUBROUTINE MONO UXsNX) ND 
_ __.. OVMENSTON XO) ws AN 2 
N=NX iat AN 3 
PL K2—N_ _ Rete Pelet ar eee ay nee ee eae AN 4 
1 X(K D=DUMDUMTXIK=L) eX (KD) AN 5 
RETURN AN 6 
TEND A 
SUBROUTINE NAVSEA aol 

cn LENG NAVSES ines Rea ecetneny eptce} a ne 
COMMON /FRAN/ AD(60) AT 160) .80160)581160) ao 3 
COMKDN /DELTAS/ OXsDY eT eDY2s0T2,DT4 ag 4 
COMMON /DIIPER/ HAI2L) sHAL2L) ag. 5 

MON ZEROSZ Dl60 94) gMAT( CO) sRUODE 14) — SDYDXIGO) AO 7 

__ COMMON /FLEX/ NFLX : ao. Oo? 

7 COMMON /NDEX/ INOEX(9) ag. 8 
COMMON /NERI/ MF yNFeNT sMUFF LIMIT eNEWKY . ao 9 
COMMON /SPUR/ $160)-S0160) »S0P1602,S3 160) eSTP160),AREA( 60) ; An 10 
COMMIIN /SUPER/ R121,60) ag 11 
MHIN 7SEXX? NASTIE,IDIO? ~~ OC“ Sd 

____ DATA ZERO/0.0/ ,ONE/1 .0/ pZURER/5 70295 78/ . _ Ao 13 
Cc . . “a0 16 
as CALL OREZ ($9360) a5 
CALC OREZ (0,264) : 7 s AQ 16 

READ (5518) MF»NF AQ 17 

REA 15920) Xe . 1 
_WRITE (6919) MPoNF Oe 9 

AQ 20 

_ SRIMITENFe2 : AQ 21 
MUFE=MF~1 ‘ AQ 22 

NEWK Y=EMUFF=1 + AN 23 
————PYEnUFFO OO A 
__ OV=ONE/DY . let AQ 25 
DY2=DY*0.5 ie ac ae . + Te AO 26 
_T2s0T#0.5 Ae oar 3 AQ 27 
OT4=DT 290.5 Pines: : “ a0 28 

WRITE (6912) DT»OX DY AO 29 

READ T5923) TIHKe J) 502199) R=LONFD ag 30 
_ CALL EQUATE (S0000240) AOD 

A0 32 

ENTRY HOAX a bo 2S 2 AQ 33 
“WRITE (6,10) : array fips We oo gs Gt AD 34 
a 1613) iw tu 

a0 7 
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Bam 2 2 Ra aa a es |: | 


____ FUZZ8ONE/BUZZ Rane re _ 2. , 40 39, 
“pO 2 K=1_éMF Sy Shoe Pe, aa ao 40 
FLsMF=K RY. ao 41 

MACK DRELABURE. 9 ao 42 
F2=K~-1 ; AO 43 

THB (KeFovbU2e Oe 

ON SEINE ne a re, ee 

1 RIK JIS(FLESE CJD 4F2¢S01 I) SFUZZ AO 46 

2 _CONTINUE a 5 eee: ee vee! a0 47 

c=: : aaa 9 ple ce Drs aie a0” 48 
CALI HEANS AD 49 
WRITE (6,15) AD 50 

D ON 3 J=1eNF ane er en oe ae ap 52 

3 WRITE (6921) JetRtKy J) Kal MF) AO 52 

£ Fo icecream feel) Aileen et Bee 
CaLt HUNT F AO 54 

c AO 55 

"READ (5,18) NASTIESIDION. a0” 56 

__IDCOTSMENOCEDIOTONTD 5 
IF (NASTIESLT.O) NASTCESNT AO 58 

J. WRITE (6526) NTQNASTIEsIOION ) iy SRS A ae iy ao 659 
caLl HEADS , AD 60 

c ao 61 
WRITE (6517) AO 63 
KNItC- io Ss eS ro geo PL eg Eh eG) Srey ¢ | BAO! BOG 
DOK=0.0 = os, : AO 65 

===" OUKSOS0 So. pk ne re pep eee ey nn a ae AO Ob 
OEGIK=0.0 40 67 

206 
X=2ERO 69 
WRITE {6227 KoXeal wick iirau Give easier sucks sae ea mmeceNaL IRI SOIRSIP io Tu 
1(K>sDEGIK TL 

c—- se a a, ees (a Se eco ete ty 22° 
EPAR=0 .5/NX : AD 73 

= 
OO 4 K=2eLIMIT ‘AD 75 

————~ SPYNX (KI =StKD*EPARDY™ OF lwp BLP pe aye en eS” Pe eae a Vas me WD OPS 
DIK=(SE(K41)-SI(K—1) )#EPAR ao 77 

a “POK=#(SO(K+19=SO(K=1) 2EPAR™ “ag 7a 
DEGIK=ZURERSATANF(SIP(K)) AO 79 

»OUK= ZU) 
Xa (K=1) @DX AD Al 

~~ WROTE (6522) KyXgAREA(K) oS( KY SOCKS OOK, SOP(K) ,OEGOK,SEIK),DIKeSIP AD 82 
11K) @DEGIK ad ee 

ea COINTENUE: p00 AO 84 
K=NF AD €85 
NOK=0.0 AO 87 

= DEKSOO" So ee ig ke i AO 3&8 
DEGIK=0,.0 ad a9 

~~ ——— PEGOK=0 507 Fe ee re eee ee 5 fo Ao 90 


WRITE (6,22) KsXsAREAIK) 9S 1K) oSOLK) » DOK, SOP(K) sDEGOK STIX) 01K 9ST? AO 91 
. 


Cc AD 933 
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"pa 5 KeaeNT OO 


__NFLX#K~-1 a ee pie Wot et et AOL IOS 
he IF (SoPtK)~SOP(K=19) 955,56 = AO % 
5 CONTINUE tek sot Ait awn ate “= SOF, 
é WROTE (6s21) NFLX an 98 
Cc ao 99 
CALL NAVSTO 40 160 
= Sy Maret oe oll oe HN en i Ee po : AO 101 
INDEX( 221 AG sued 
—_ INDEX( 2054 roars = eyo = _ AO 103 
INDEX(3)=NT<5 aes ay Oe ~~ ~~" ad 104 
INDEX14)3NT=3 aN 105 
X(STENT= ry 
_____INDEX(6)ENT . eae = AO 107 
INDEXCTISNTOE OOO eee AO 108 
INDEX (8)=NT#3 AO 109 
INDEX(9IENT4+5” OOS : ’ ad 110 
Cc ag 111 
MPUTE ANGLES. ry 
on 7 K=L.NF Bee ese AQ 113 
BOCK EATANFISOPIKID Acepee eer re ees We yee AO 114 
_____ AT UK SATANFIS (PUK)? eae Bes é oe F ao 115 
7 CONTINUE a AO 116 
c Aa 117 
————O_A Ka2,LIM(T A OS 
ANIKISSOYDKIKIS(BO(KORI—BOUK=2D DD 
AU(K)=<SDYDX(K) *(BU (KL =-BI(K=1)) AO 120 
@___sCONTUNUE eee Wate Aenea oe tths tne bea h =o Aes ee (ee 2 
00 9 K=2,L(MIT~ an 122 
BOCK =ESNYNX(K D*SINRFE(BOIK)+B0(K)) An 123 
BIUK)=-SDYDX(K) *SINRFIB +BTK a0 12 
9 CONTINUES. a sc Pean Sem syle eens sie re hen ek oy ee Aol _ AN 225 
Go : ; AO 126 
RETURN: eee ek.) Seeded woe Def e ee el Ae 
. ao 128 
10 FORMAT £730% ps NOLELE sone Tee ard Js AO 129 
12. _ FORMAT (720K, "DT nt e3PF1006¢* (MILLISECONDS) ° » 5X» "DX =*,0PF9.5,3X, AO 131 
L'fy #°,F9.5 ) ao 132 
13___ FORMAT (736K e*SO"913X— "SOP? 1 3Xe 'SE%eL3Ke°SIP OY ) an 133 
14 FORMAT ( 5U20X¢1592Xs4F150605X015/) 3 _ Ad 134 
15 FORMAT (/20X_°"R" ARRAY'/ ) AN 135 
Té FORAAT 720%, °TH ms ® aretse 
__ L4X5"LAST PRESSURE SHOOTH STATION =, 13) AQ 137 
17 FORMAT (26X9°X" 98K, AREA’ 7X0 *S* 9 BXe 6 SO" 6X0 "DSO/DX* 9 SXe3HSO'2 HX, AO 138 
__ , ROHS (0) e7Ko*SU" o5Xe"DSISOK® o4XeSHSI* ep OX ,6HSIOID) £ ) AG 139 
18 FORMAT (1615) AQ 14D 
19 FORMAT (/20X,°NO. POINTS ON VERTICAL LINE(MF)=*,1395X0"NO. OF WAL AO 141 
——TL POINTSINE) =*,137). — OO aO Dae 
29 _ FORMAT (2f12.0) : AO 143 
21 FORMAT (LOXs15s2XoL2F9e G/L 7X91 2F904) AQ 144 
22. FORMAT ( SULOKe(SeS5Xe11FLO.4/) ) AO 145 
23 FORMAT (4615.0) AD 146 
END AU 147- 
———— SUHRGUTING NAVS1O| APO 
_ COMMUN /NERD/ MF NFO AP 2 
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ees COMMON /NAVIERS _DTOX ,DTDX2 ,DTDX4, DTDXS ,DTOY ,DTOY2+DTDY4,OTDYE. | ee, ee 
TOMMON /STDKES7 £160) 28160)eH160) Aap” 5 
_____ COMMON ‘/SPOR/ $160) eSO140) eSOP{60) oSTI160),STP(GO),AREA(GO) AP 6 - 
“~~ CALL OREZ [As180) ap 7? 
ONE=1.0 aps 
OTOxsDT/DX AP 9 
OTDXZ20TNK*O.5 ta AP 10, 
——— DTOX4=DT0X290.5 ap oil 
> ___ OTOXR=ENTNX4*0.5 | a a ee et, lo a 12. 
~~ oT0Y20T/0Y AP” 13 
OTNY2=DTNY20.5 AP 24 
——PINVaeD 10128009 ooo 
‘ DTOY8sNTNY4#0.5 AP 16 
OD 1 KedgNR ern cmmemreme AP OL 
ALKI=ISOP(K)<SIPIK)I/SEK) AP 18 
"BER DESEPOKOFZSERD SE ARP DO 
H(KD=NNE/SEK) AP 20 
CALL HEADS ‘ __. AP 22 
T= WRETE A6e3).. 0 og. a ue ge ee eB SET 
WRITE (605) (KeA(K) oBIK) pHEKD KEL ONE) AP 24 
—~—~~po" 2 en ee eg et, yo te AP 25 ~ 
2 AUK) SAK) ONTOY2 AP 26 
WRITE (654) AP 28 
——~""WRETE (695) (KeACKT BIRD eHIK) KelyNFd ap 29 — 
RETURN ap 30 
Mie o lg te Pinko oe Sis Gh eke a OE ee ME SSM 


FORMAT 


e e e 
5 FORMAT (20K015e2%y1P3615.6) ae) by ee Ae SOS 
Tee See ae cme AP” 35- 
SUAROUTINE NORMAL (X»NERD) See iea eatte ee (ee Oe 
> DEMENSTON X€1)— Sar tare ee Se a Ag 2 
N=NERD AQ 3 
Se ee ee 
DD 1 KeLeN ao 5 
“E> SOMBSUMSREIS oo gs Cape ee Re em ee AT hr 
TF (SUM.LE.0.0) RETURN ao 7 
———"—po 2 Kalen Peas We eas - AQ 87 
2 X(K) =X (K)/ SUM - a0 9 
END AO 11- 
"“"——— SUBROUTINE DREZ “(X;NERDI- ye eecaieicee |.) ae 
DIMENSION X¢t1) AR 2 
sone So MMMERINE Segoe oe om Te ee ee Re | a 
on L KelwN : AR 4 - 
Te 0 ee 
RETURN : AR 6 
No 4 i rr a aes 
SUBROUTINE OUTPUT aS 1 
ay Connon” COURT Get Bee eee Ae ge 
COMHNN /NERO/ MF NF NT aS 3 
= Se ee 
NBs8 ; as 5 


mmr ee re apo Cee ee 
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——tbettel OO 


OO 2. KeleNFO AST 
CALL HEADS as. 8 
GALL GROG) (ND ic a EAS 
DO 1 J=1.MF as” 107 
1 CALL PLINE (JsKsN6) : AS 12 
NTENU 2 
= CALL ENIGMA —— — est Es oo eran eS TSE 
CALL HEAMB” SOSOOCOCSCSOSSSVNX’W— AS 14 
——_ WRITE (695) 8 0 aS L1G 
CALL FROG aS 16 
06 3 K=1.NF aS 17 
3S” Att PLING (1isk,Ne). CAS Ce 
Ja = GALE HEADSA: se he nt ge 4s 19 _ 
WRITE (Ae6) L AS 20 
Cal FROG __ : so AS OD 
DO 4 KEL NF AS 22 
4 CALL PLINE (MF 9K NS) 4S 23 
tt ry 
Se ee (RETURN 2-2 Sn a Jeo BA et AST Zo el 
Cc : AS "26 
5 FORMAT {/20Xe*AXIS ITERATION NO=*,IS / ) AS 27 
6 FORMAT U/20X.*WALL YTERATION NO@*e=5 fo 7 TOU TU as” 2B 
END 4S 29- 
IMPLICEST REAL®B(A-H 0-2) : AT) 2° 
i. DIMENSION  Sxiz>esvt1oestI) OO —... OO OAT 8 
PE 1 Osho et oe EE MEE ORO ee te Pe RNC SE Yer 
${2) = = 0.0 aT 5 
$(3) © = 0.0 : AT 6 
s * . 
Beh O SRS Rea ee a Se ee ee RS A 
x3°= $x{3) ~ << Po 7 at 9 
Flo= x1 = x2 Pere ‘ aT 10 
F2 = X2 > x3 AT 11 
F3 5 x3 = Xl AT 12 
= Foe : ‘ 
IF (0 .€0. 0.0040) RETURN reece! . ete “AT 14 
O = -1.0/0 = ae a ee aT 15 
Yl = sv(l> an aw, Tbe 
~~~ ¥2 = $¥12) een ee ge Pe ee ee vet a aT 17 
Y3 = sy¥l3) . aT 18 
vl = yi* 9 
Y2 = Y2*F3 AT 20 
93 e388] ee rea ae 
SUL) = OF(YLOX29X3 + Y2eX18K3 + ¥38x18X2) Pat aT 22 
“" $€2) | -D*L¥1S(X29X3) + Y2OCN1X3) © Y38{K19xX2)) ~~ “™ "aT 23 
$(3) = DelyLev2ey¥3) AT 24 
R 
END ‘ AT 26 
“~~~ SUBROUTINE PCLASS Te A 
COMMON /SPY/ KCLASS eKGROUP Aue? 
“~~ INTEGER#4 ~ JERK(3,3) 4 | SS ee mn ee os SRE BO 
® NCL, "ASST s "FIED? au_ 221 
By TCONFY. IDEN’ s *TIAL® cata au” 22 
- 3s Hewes ECRE eo Teva! / ‘ 3 PD AU 23 
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“——~~BYRENSTON AUS) OOCO™~—SOSOCTCOCCCOCOCTCTCTTTTTTCOCOTT 


___ CALL EQUATE (MyJERKILKCLASS#1203) 
"CALL DATE (KDAYSKYR) au 5 
Et RETURN 2 ‘ Ate OS tocel ah, ga ees: De ok ; . au : 6 2 
ENTRY PCLE au” ? 
WRITE (601) 4 AU a 
e e ° ° 
RETURN AU 10 
—"" ENTRY PCLB ” 3 ie da oe a ad 7 . AU oll 
WRITE (601) # AU 12 
"WRITE (892) KDAYeRYR)KGROUP HO Tm a a8 
RETURN s AU 146 
= ENIRY CLis. OO ee ew ee 
WRITE (141) M AU 16 
WRITE (1492) KDAY,KYReKGROUP»MOOCOS~C—CSC‘C . au 17 
RETURN 3 oe ee oe ; . . AU 1A 
raeg ae rca - Au 19 
1 FORMAT 192% oT58, 181 989)/T5B oOo TTS BI/TS8, 9% Fo 3AbeTT5,'#*/ AU 20 
He t#%, ote . eae) ) a 
2 FORMAT «(0979 DATES? y134°/*s12sTS8y 181969079 GROUP? ,12,T58,9e*, T AU. 22_ 
175 —%8*7* ARO INC. %,T58e°* %, 3%," &°/° ARNOLD AIR FORCE STATION, AU 23 
ae ZTENN a TSR et Sh eT 7S ec Ft/TSBelBL8%") fF? ‘ AU 26 
END All 25- 
SUBROUTINE PHINOU taxstey AV ° } 
COMMON CIGNRK/ WE v 
_ COMMON /NERD/_ ME gNESNT MUFF g LIMIT : . : av 3 
~ NX@NXSTA 7 Sees. Pay * " "7 Av & 
TARGE T=WEIGHT : ee, \ ee 
TPE ANXALTONT) GO TOR OUT mms av 6 
IF (NX.GTeNT) GO TO 2 avso7 
9 
RETURN av 6G 
“Y—tonTInué 97 TO oo Srp Sree ewe ee ge hates Ae SD 
IF (NXoLEoM) CALL BOMBER (*°PHINOU'sNX) av il 
DI OPLES E1003 76 av 127 
XLOW=PTHROT av 13 
Gn TO 3 : av 15 
~S CONTINUE OT SA Nay a ey Ce ORT Oe, pee re IB OE ty eee a 
(F (NX.GTeNF) CALL BOMBER (*PHINQU? NX) AV 17 
—~ ¥LOW=0.0 © A toe is, m=" Ay 18" 
XHIG=PTHROT av 19 ll 
umee 
GO TO 3 av 21 
ao CONTINUE. 2 32 2 eS OT aes bts ee “rT av 22 
Se SR QUNT ERO Av 23 
4 KOUNT=KOUNT#1 PS NT Te Sige Oe Pee oR a 
TF (KOUNT.EQ.0) GO TO 6 AV 25 
a + e 
CALL ZETWP (X—NX) AV 27 
= XMA225XMASS (NXY Se ee ne : “7 AV 28 
FONK= TARGET=XMA2Z , Av 29 
= TEST=FONK/OIDDLE———ST— OOOO av 30 
if (TEST.GT.0.0) GO TO 5 AV 31 
= A Se 
GA TO & av 33 
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ca To 4 ” . oe tc ee cr me ee -— 2 ee meee ave 35 . 
ENTRY FINK( POUNDS) AV 36 
ore TARGET=POUNDS as SO es aN oar Ree av 37 
NX=1 av 38 
Gn To 1 AV 39 
ry TNTIN V_ 40 
_CALL SETWP EXeNXD , av 41 
RETURN . av 4? 

_ END wesw were coe ae eee ew owe ome ome 8 ew we eee oe av 43-_ 
~ SUBROUTINE PUINE (4YQNXsNUNIT) aw 
ideals ¢COUNT/ Ath aw 2 

7ER W : an OUST 
CHARON /SPOR/ $60) $0160) »SNP160),S1(60) »S1P£60),AREA(6O! AW OG 
~ COMMON /STUPID/S F121960) Aw 5 
COMMNN /SUPER/ R121.60) AW 6 
" "" Memy . ‘ . aw 7 
N=NX AW A 

— Ns. ...  .  .°.. — = an ee 
P=N1MeN,5) aw 10 

"oT" GWREWEIMsNe LS ee AW ih” 

See W2SW(MeNe2> . AW 12 . 
=o W32W(M Ne 3), BP neg te ne a Aw 13 
WO=W (MeN 0%? ‘ aw 16 
RHO=HL/RIMyND AW 15 
__ Usw2/wh a Se scee Bint eae ee 3 . , aw 16 
V=W3/W1 Aw 17 

_ CALE FREAK (PeRHO UsVyMsNePZERDsTZERO DEGREE, TyXMyVEL>GAM) 8 = 8s AWB 
FUZZ=FIKgND aw 19 
1F_(NU.NE.6) GO 101 AW 20 


_l___ | CONTINUE — AW 26 
* IF {MU,NE.8) CALL BOMBER (*PLINE’s1) AW 25 
waite (Ae2) NeFUZZ pW] oH2.W3oWosP oT sXMe GAM» RHOsUeVsDEGRE,PZERO,TZER AW 76 
nw 2 
up RETURN : . ; : AW 28 
ENTRY GROGINASTY) aw 29 
.  NBNASTY AW 30 
WRITE (693) LoNsSTUND sSO(NDoLL AW 31 
t WRITE (604) AW 32 
U ] 
ENTRY FROG : AW 34 
““"" WRITE (894) oy AW 35 
RETURN | AW 36 
c a 7 : AW #37 
2 FORMAT eared SE ee RE i Aw 38 
RMA Xe? ® ’ 
bs ages 1ER 2t,F9, pial deiebd de =? F946 ,5X, PHUTPUT ND. =t,1S ; } Aw 40 
4 FORMAT (LIX *STREAMLINE % % AX, WL sL4Xs9W2%y 1L2X, PW3%, 14X_9WO9 C10 AW 4) 


LXe*P<STAT® sLOX,*TEMP(RI% o7TXe "MACH NO® S15X,°CP/CV",9X, *DENSITV®,11 AW 42 
2X02UP LIX 9%, 1OX, "FLOW ANGID) °5 7X_*P-STAG*o 1 OX, *T—STAG%7Xy "VELOC AW 43 


3ity' 7) AW 44 — 
Ww a5= 
_ SUBROUTINE PMIN (PM) ax 1 
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ey 
e 
. 
° 
° 
- 
° 
° 
. 


EPZO2UTZC2T0. ak 8 
eemeeee 1-715 6 ax 4 
DO LP iwete2t 8 ot rt ree ae CAR le 
IF (XeGTePZIK)Y XEPZIK) ax” 6 
ee a a |, 
pH=X ax 8 
ores “RETURN mr cnt oe Oa tet tee Sood jad MES pete GAR? 29s 
END AX ie 
FUNCTION PSTAG (CPsTSTATsTZEROsPSTAT»SAGRI Lertebok taem gt ANG AU Ee 
DIMENSION CP(3)_ mee, ay 92 
CPZ=CP12) AY 3 
CPASCPIe) AY ry 
CPR=CcP1i3) AY 5 
Oe te ee ee A Be 
Tz=TZERO ay 7 
[= == FPEPSTAL ("a ee aY a0 
RGAS=SAGR AY 9 
= FERREeCPAICl. ee ke OS 
TRAF=0.5*CPR/CPZ AY ll 
omental LRA... ee ee ee ee . AY 12 —- 
POWER=CPZ2/RGAS AY 13 
: ““EPAR=(T2Z-T)¥(GARFOUTZFTSOTRAFS re ) ae | Se 
XLAX=EXPIEPAR) AY 15 
= 
PZERD=PRAT®P AY 17 
7 ““PSTAGEPZERO 0 ee eee AY: he 
RETURN ig het ee ie eae JCA! OR: 2: 
ENO A a AY 20- 
SUBROUTINE pul? TNvisilxGOeES? Az 
COMMON /NERD/ ME NF 9 NT gMUFE LIMIT : eee. ee 
COMMON /STUPID/ F (21,60) eine yo a 4 
COMMON /SUPER/ R121260) ~ eet 5 
~~" COMMON 7 SPOR $160?,S0160) 5 SOP 160) ,STTS0),SIP(G0),AREAC EO) he ~ 6 
COHMON /ODPER/ HA(21),HB(21) Az 7 
= . 
K=NX “AZ 9 
PPaPRES Bitten. © Pie Roe Se as te OB ae 
FUZZ=FIUsK) az il 
———""~ SLOPESHA( J) #SIP(KI+HB(JI@SOPIKD — OT Tt ee ee a © sc 
CNSIN=SORTF(1.0/¢1 .0+SLOPES#2)) - Av 13 
? ’ J s 9 
WL=RHD*RID OK) az 15 
"7" WVEW)EVEL 7 : : "al 16 
W2=WVCOSIN AZ 17 
32 SLOPE mmm mmm nn a 
W4O=EASY*RIS 9K) ar 19 
a 1 aaa Y SEY | Ta 
Wl dK o222W2 AZ 21 
= WIdK.3980d a ee er ae 22 
WI 31K 24) 284 AZ 23 
pe Pts ieRPs Se ee ee re eee ee AZ 26 
RETURN AZ 25 
FUNCTION PVNTS (WONE »WFOURSMAMA,NERK) RA 1 
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____COMMON /SUPER/_RI21060) BA 3 
WLOWONE - i ermadaacn | Vann Yes 
W4=WFOUR BA 5 

-———"MeMAMA DTT ee ga: 
N=NERK ; . AA 7 
Flizz=FiMyN) BA 5 

______HO®HZERO{FUZZ) area: = ae ; BA 9 
P=(HOFWL-W4)/RIMQND oe ‘ BA 10 
oc PNMVS ODS 2 aE 2 ee yp eee ne ee at Re ee a _. fA DL 
RETURN - =, BA 127 
END : BA 13- 
FUNCTION RHOMAX U ) 6B 1 

___... COMMON /STAG/ A(6021) .CP(3e21) CVI 3922) pWTM(22 1 ,GAMZC21)RGASK2R), BB 2. 
1PZ€22)9,TZ021)¢HZ(21)sRHOZ(219 RA 3 

Sa = JONES U0 oe et ee A ete “thy dees : AR 4 
ZERO=0.0 BB OSS 
F=FUZ2 AR 6 

. e d 

___IF (F.EQ.2ERO) GO TO 2” ? ‘ BB OB 
TF CFe(ONE=F)VLESZERO) CALL BOMBER (*PRHOMAX"™*,1) °° 7 "OBR 8 

X2F*20.0 : RA 10 

- ~NEWK Y= x ~~ Sag ee ee ee ae “pA oll 

OIG(T=NEWKY ( BBR 12 
sxe ' 
FI=ONF-F2 2 BR 14 
NEWRY oon ist 
KsJ41 BR 16 

“T7—""" RZSFLBRHOZ (JY +F23RHOZTKY en BB OT 

1 RHOMAXSRZ : BR 1a 

———~ REWRN ae 

2 RZ=RHOZIL) BB 20 
GIO. =. OC Ne eee agra eta PU ae ts Oe, IRB) weg 

3 RZ=RHOZ¢ 219 = = ___. BA 22 
GN may PP NS a a enn BR ed, 
ENN BR 24- 

—ETINC TION HYDOLE TRV OR nO 

__.__ COMMON 7STUPID/ F(22060) 
COMMON /EROS/ W121 96094) oP (21960) sc 3 

iy COMMON /SUPER/ R(22060) 

COMMON /THERMOS CPX(3) eCVX03) 2RAG Ct 
NNE=1.0 BC 6 
RN orth thle ae, Spel ores ac 8 
salty = see titty Coos Jon Sore St re Bg 
RIDOLE=ZERD BE 10] 

= PULZSEUKed) Goa sO ee Bc ol 

RHO=WIK pol I/RIKs J) BC 12 
. ul t r ’ , e 

VV=VEL*e2 BC 14 
“FF {VV.EOSZEROD CALU BOMBER TP“RIDDLE"*, 27° 

GAMMA=CSUBP IT )/CSUBVIT) BC 16 
——— BETA=GAMMA®RAGST/VV 0 me neem meee pe CT 

XMsSORTF(NNE/BETA) ace 

R(IDOLEsRID ac 20 
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__ENO aaa eS ee OR 
SUBROUTINE ROGUE : AD” 1 
COMMON ZEROS/ W121,60,5) th ote ge pri atm’ snee’ 2,» AMOL~ £2 

“COMMON /NERD/ MFQNFeNT a 8003 
Cann /SUPER/ R(21,60) ; AD 4 

L_CALL EQUATE (W019 6090) pWI Lol ode MFD AD 6 

i no 3 K= sh Pe SOY are oe? 5" - ap) 6? 

___, OM 2 JS=1eN 5a ibaa 2 gy lt Sm A a eh Ty Ree tt OD IO 

2 WiK ede TDSW(Ks Uy D/R(K eS) 80 9 

3 CONTINUE BD 10 
Ble ~ . * 

K=NF+l-J RO ‘12 
SCALE EQUATE CWT eK+2¢1)5WileKel)gMAD OOo a 

CALL SLICK baa eee oet Ft BD ES 

0 5 J=155° oo ; BO 15 

5 CAILL EQUATE (W(1el oJ) oWI1 9600J) MF) BO 16 
URN ° 

ENO 7 AD 18- 

= SURBRMUTINE SAM eo a Set Pod em eg gee dpe th en oy J ee ye? BE 17 
COMMON /FROS/ W(2106004)9P(22960)____ tan oe an eeeth a tielen ty pee fea 

———" COMMON /NERDZ MF NF yNT MUFF ==, BE 3 

COMMON /STUPID/Z F(21,60) : BE 4 

MMON U ° ) 

COMMON /WORK/ X(60) : = BE 6 
“COMMON /SEXX/ NASTIESIDIGT eee iH 7 
cC PRESSURE SMOOTHING 8 
“TF CUEDIOT LT S2).0R. CEDIOTGTENTY) CALC BOMBER -rsamtoroTs;07—— BE 97 

00 3 K=2 MUFF RE 10 

a9) T J=T, TOOT BE TY 
1 K(JI=P IK odd BE 12 
cc i ge 

CALL SMOOTH (Xs1O10T»4) : BE 4% 

MORON=1N10T=1 7 7 n> ee iN ren ae ne a ee ae ee RR BE 

DN 2 J=2eMORON : BE 16 

‘RUR=SORTFCW(K 9d o2)##29W (K yd 39882) AE 18 

—— CSNBW(Kede2)/RWR ~ Ppp ae at ony sa er aR Ny res BET. SEO p. 

SN=WIK oJ 93)/RWR BE 20 
TW Ke de LPERHOSR (Kg dP Toms ss ss BE ak 

BEA ts2 Hy Used SEVER CSN BE 22 

W (Kodo) EASY ARIK JD : BE 246 
TTP (Kod EXE) fet ey epee ge mee ay soa" BE 25 7 
2 CONTINUE BE 26 
7S ve CUNTINUE! fps ep ae oe ee ee a ee eee BB ae 

RETURN BE 28 
an SS. Se ee ee eee 
: SUBROUTINE SERL42 ae | 
~7——" CALL ERRSET (207,2565-Te1) Oe pe 2 e 

CALL ERRSET (2085256,-2 91) BF 3 
—~ —— CALL” ERRSET (2093 256-191) mn Be 

CAILL MAINP BF ? 

TS SRETURND ee 

END AF OT 


291 


AEDC-TR-73-29 


———_ SUBROUTINE SETWP TPRES,NxStTA) —™———C‘XAwS 


__. _ ENTRY ZETWPEPRES NXSTAD bro haes ath ston on: Rast ING © ake 
COMMON /NERD/ MF oS ae 6G 3 
1 NXSNXSTA : were Sie dss eee AG 8 
PP=PRES AG 5 
00 2 k=1,MF AG 6 
“2 CALL PUNTZ (KeNXePP) OO AG 
_.. RETURN AG a 
END Be ee ee aes 6G 
__ _ SURRNUTINE SLICK Ph a A oe AH 
COMMNN ZEROS/ W22¢6054) “7 " "AH 2 
COMMON /NERD/ MF NF aNT eMUFF eNEWKY AH 3 
S20 Ww 
ON 1 K=2 MUFF BH 5 
~~" Use? ye th chi sw eee 0 Ps . i AH 6 
‘ Ru=Ww (Kel told Se : 8H 7 
RD=SW(K=-1 5051) AH OB 
RLEW(K of. -1 51? AH 9 
RewiKelel? BH YO 
__—- RREWEK ol *L yd? ., : BH il 
1 WiKede lL =RANDIT (RUS RD EAL RRA? BH 12 
2 CONTINUE = . AH 13 
00 3 J=2,NF BH 14 
WLedelLI=Wlledo201) AH 15 
TS  WtMFeSellowIMF.J+2-o15  )6)©)”.)OOUUO CBM EO 
a DN & K=2—MUFF eh eet Gr teee oe BH 17 
4 WIK eNF ol DEWIKeNF+251) : AH 16 
_ RETURN Dei dn atcteheet, CC Bhi og eal Tem ie OM DOE oc 
ENN 6H 20- 
SDARDUTINE SMOOTH (X «NX eNTIMES) Bl 1 
HENSTON Xti)e ? } 2 
os oe NEN Sie Sete ts the Sete PB See eee og ee a Bias 
NERD=N-1 Seis PT AD ER Pe oN et " BI ‘ 
REMIT TENT IMES , _ ; Al 5 
F20.K125 ae Al 866 
; FNN=0 5-0 .59F al 7 
NY 2 I=LeL IM A 
: CALL EQUATE (25XsN) - Bt 9 
NO 1 K=2,NERD : ‘Al 10 
1_ KAM DSF OZ EK OFOORIZ (KEL OZ (KO1)? hap 2 a! 1 
2 CONTINUE Al 12 
RETORN . : Bl 13 
EN Sf : ” —. OL 24= 
SUARNUTINE SNAFU (MM,NND 8J 1 
COMMON /FEROS/ W(21,60¢4) AL 2 
____., CAMMON /STUPIDS FE2R060? . ApN ane BJ 3 
DIMENSION ACG) BJ 4 
MaMM aJ 5 
— NENN <a ee ts tO 
___ KOUNT=O ; a 2 4 as 7 
ON 2 KRUD=1 43 "i Le 6 
__ _ Keme#KRUD=2 Bs =¥. as 9 
00 1 JOLLY=193 BJ 10 
J=N¢JNLLY-2 8J 11 
KOUNT=KOUNT OL AJ 12 
AD PEWEK Sed? ee, eh Sy Y 0 Ad 13 
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AUBIEWEKRySo3) 0 SL 
AUGIAW (Kode 4) Bs 16 
= _FUZZ=F IK 9d) a= EN BJ 17 
CALL EVAL (AsKOUNT, FUZZ) 63 16 
1 CONTINUE BJ 19 
2 CONTINUE == =P = 7 AJ 20 
_____ ___ RETURN eM: wh ne, L entrar fy wes PAE . : _ BY 2. 
enn BJ Ze- 
______ SUBROUTINE STAGG BK, 
COMMON /STAG/ AS89219 CPUS 5212 eCVI 3921 boWTME2ZL DyGAMZ(21)¢RGAS( 21), BK 2 
1P2{21),5T2Z(21) eHZU21) eRHOZ(22) BK 3 
— COMMIN ZCPDATAZ CPSPECI3¢6)<e5PCHWIta),NAMELA) Sk 4 
COMMON /E20S/ R(8e50) 9X(502—P(50) oT 150), F 50) ¢NSTAG 7 BK OSS 
“COMMNN /LIMITS/ YMIN : ‘4 pee BK ~ 6° 
CALL CPEVAL _ S Reh BK OO 
Call OREZ (Ae420¥°- BK 6 
GC J$=32.174*777.648 aK 9. 
NCH=1.98 Ko 
= WENCHSGRINCH*GCS 3 . : BK” 11 
NS=21 . BK 12 
ONE=1.0 Pee oe 7 ees BK 13, 
==> GALL: HEADG); + ee " oy st BK .14 
WRITF (6021) BK 15 
READ (5,13) NSTAG RK 164 
_ WRITE (6014) NSTAG . = . ; _BK 17 
"oo NXENSTAG im Fottg Y 5 Ma She cre “BK 18° 
____,,., READ (5915) (XIK) oPUKITIK S (Bi deK)oUa1eSPsK™LyNSTAG) = == == BK OIG 
WRITE (6.9) NAME BK 20 
WRITE (6016) (Ky XK) oPIK) pTIK)s (Ble K) eJ=1 9B) eo KI1L9NSTAG) BK 21 
ALL HEANS K o> 
Tu GWRETE SIG 92100 oe ee a ee Se ee i BB Re 
00 1 K=1.NSTAG BK 24 
PIK =P (K)*144.0 Oe ROT eee ee Bek nt BK 25 
“YT €act woreac tRt1,K),8) BK 26 
WRITE (6510) NAME BK 27 
el 
FURN=NS-1 BK 29 
"ON 4 KebeNS ~ 7 7 7 picemees “7 7" BK 30 
TARGET#K~1 BK 31 
TTT" FARGETSTARGET/FURD "OTT Pe wee oe Cape ree BK 32 
CALL LINEAR (TARGET 9X NX oF 1 ¢F2¢ JL 9J2,NOCON) BK 33 
Ne e 9 
PZIKI=SPLILISF LEP U2I%F2 BK 35 
oa fa TZUKI=ETI SL FFL +12) 4F2 7 BK 36 
FUK STARGET AK 37 
"=" SuM=0.0 wa? tae Fre SE PET OA ORR ES ee on Se SB OB 
NO 3 J=1.8 BK 39 
Ler ’ + ° 
DO 2 L=1s3 BK 41 
“Z~ CPUL DK IECPIL KIFATI,KISCPSPECILS JD BK 
SUM>SUM+A (J eK / SPCMWTIS? BK 43 
3S " CoNTee “TT =- “4 of i BK 44 
WIM(K 2=NNE/SUM BK 45 
TRG ES TR WENT S  — R 
4 CONTINUE RK 47 
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5 RHOZ(K) =PZ(KI/{TZIKRGASIKD) _ BK 8 
pa 6 Ke1,63 i SIS aw aa toe BK 50 
6 CPUKsLI=CP(KeLI*GCI a= : ax 51 
Ba 7 K=isnS Se a ee ee BK 52 
CVU1L eK) =CPI1.K I-RGAS(K) 8K 53 
cv X= (20K) BK 
CUISsK=CPI3K) é Accel Pe ee ae VOR. BSS 
7 CONTINUE BK 56 
WRITE (6,10) NAME pe = eee __. 8K. 5T_ 
WRITE (6.16) “UKS FURY PZIKD oTZ (Ke (ALU K), JB1, A) Kal NS) 6K 58 
CALL HEADS BK 59 
——Wie (el) .  . -. IR OO 
WRITE (6911) BK 61_ 
“WRITE (6517) (KoWTMIK) RGASIK 9s (CPldgKDodmlo SD cI(CVE SK DoUsledIeK™1 BK 62— 
LeNS) -_ ioe ig kee eee BK 63 
WRITE (6518) ~~; BK 64 
00 B K=1,NS AK 65 
ToD ETZIKDELCPLL GRD FTZIKISICP 12K 1900 5400 TSSISTIFCPIDORIFIZIKI)) BK 66 
__GECP HEL KI TZIKIHICP U2 eKIFTZIKISCPI SKID : BK 67~ 
HECVEL KIS TZ EICVE2 KI FTZIKISCVI3 9K) BK" 68 
GAMMA=G/H 8K 69 
“GAMZ(K)=GAMMA RAR eee oa ee te ee “BK 70 
X14) =SORTE (GAMZ(K)#RGAS(K2*TZ(K)) aK TI 
t , .J ? ? +] 
B CONTINUE BK 73 
ig oe RR Ee i ye ae ag eT gee ee ee a gn en, 
CALL MAX(E (XsK) AK O75 
ee BK 8 
* AMAX=X1K) BK 77 
a e 
WRITE (6.19) KMAXGAMAXGVMAX sk 79 
Chg wer eee nine ere ey sre BK a0 
et 2 ee tn bee Svea @ SOR: OB 
CALC MEANTE (%eK) =o Gaels pe BK 82 
KMIN=« ak 83 
AM(N=X(K) BK 4 
VMINSAMIN®0005 ee ee BK 85 
WRITE (6,20) KMIN, AMIN, VAIN 8K 86 
Oe ae aon bebe te eee a = _ CKO 
~~" RETURN Wg tte py ho ehh deg oe ee BK BA 
c BK 89 
g FORM U7T6Xe "STREAM FRAGT .® dX, 7 19X¢ RELATIVE AA aK 90 
___ UF SPECTE*/30Xe*PSIA'sTXe'T=ROeAISXeASd JD = KO 
iT) FORMAT (/30X_°PSFA', IXe 9 T=R8 BL SXeA4)/) BK 92 
LLL FORMAT =(/20X5"MOL WT" 5Xe'GAS CON’ 91 7Xe"CP COEFFICIENTS’ »22X,"CV BK 93 
——TENEFFICIENTS®' s 9 BK “94° 
12 FORMAT 120X015.5X oF B04 92X51P4615.6) AK 95 
1 RMA (1675) 
14 FORMAT (/20X_ "STAGNATION PARAMETERS! 95X9°NO. INPUT POINTS=°,15/) BK 97 
15 FORMAT” (3E12.6,4% 8E5.0)° BK 98 
16 FOQMAT [LOX ,15eFSe4eF12030F100l AFG) = ts _ _ BK 99 
17” FORMAT CLOX,15 92%. LPAG13 64) . : 6K 100 
18 FORMAT (720% STAGNATION EVALUATION® //32X_°GAMMA’»10X_°CP%,12X9* BK 101 
ICV, LOX, “ENTHAL © 95x, SPEED OF SUUND*/} BK THD 


19 FORMAT (£20X." INDEX QF MAX. STAGNATION SOUND SPEEO =*,413,3X,°SPEE BK 103 
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2%, 
__20 _FORMAT “1 720K90 INDEX OF Pas "STAGNATION SOUND SPEED =°513¢3Xe*SPEE aK 105_ 
“ED 3° 9F9n2e° (FT/SEC) oSXo9VMIN 3% eF9525°{ FT/SEC)? / I BK 106 
_ 21 FORMAT ¢€/20Xe" GAS PROPERTIES*/) —s 7 - BK 107 
END eh os me 8K 10B= 
SUBROUTINE START BL 
OMMON 7APE/ LINGI30) ALO 
DIMENSION LUSH(27) 5 KARNI20) AL 3 
“TT BQUIVALENCE (LINE sLUSHsKAROD = 7 7 ee ‘ BL 4% 
DATA KRUD/*1 #897 sMUNG/ 9448897 MUD/ ERECT / BLS 
TREAD (553<END=2) KARD oe TT EBL. 351 
IF (KARD(1).EQ,MUNG) GO TO 2 BL 6 
ry ToNEOK ' 
KARN(1)=4Un ALO 
a ENTRY HEADO: °° Se ee ee eg ee a RE 
ENTRY HEAD P 7 e ; BL 10 
== | CALE PCL6R So ae o> A mere ereres BE, AE 
CALL TIME (IDIOT»NSECS) ‘ BL 12 
UTE=N 3 BLT 
Yh NSEC=NSECS~MINUTE*60 | ix sok thks pn La _ Bl re” 
~~ KHOURSMINUTE/60 8 = BL 15 
__MINUTESMINUTE-KHOUR#OO BL 16 
LINE(28)=KHOUR 5 ° ; BL 17 
LINE (29)=MINUTE BL 1B 
= 
WRITE (63) LINE BL 20 
7 ——“RETURN 7 aaa a ae a a naam || ny |) Pall 
opiate MEN TRY HERNIAS 5 0,8, ey he os ee BT, Bi re Re 
CALL PCL8 $ BL 23 
WRITE (893) LUSH BL 24 
ENTRY HEADLS = _ BL 26 
or we GAL PCUROE co yee ee ee a re ABLE ee 
WRITE (1453) LUSH BL 2B 
Sr RETURNED 3 So Ne a ee on Ge ep Te np oe MOL ope 
2 CALL ENDJOB : AL 30 
L 
Cc BL 32 
ae eras FORMAT” “C27TAGSTSs Ft ghZe%etsl2 fy : ONS BL 33 
END AL 34- 
—""——"" SUBROUTINE STATIC” TO mes 7~— 7 pM ot 
COMMON /ABLE/ AX(21) BM 2 
9 J e e 
COMMON /NERD/ MF GNF ONT BM & 
“~~ ——"" FURD=MF=13 ao as . AMOS 
CALL HEAD& BM Ob 
TREES TW RETE CG TO ee Se AM ae 
DN 1 K=le22 BM OB 
DN 2 K=1,MF AM 10 
a “KUARGETZK=1* > eg ee ge ene i ee a MS OE 
TARGET=TARGET /FURD : BH 12 
“"—_FIKSNARGET CO ee es: le + ie 
READ (5,13) NSTAT BN 14 
ate nny ||, See 6 
3 IF (NSTAT“21) 454%eB BM 16 
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a 


“@ CALL” BOMBER (6H STATIC 5537 


ee 


9 
x eee 


12 


13 
14_ 


~ COMMON /APE/ KITLE,LARELT19) 


“COMMON /PSIA/ PSIA(I6) ¢NPSEA 


_coHHON 


= A 


REAO (5014) (X(K>ePI(K) Kal oN? 


~~ WRETE (6.11) ~ 


WRITE (6015) (KeX(K) PIR) sKaleN? . 


NX=N 


Q0 6 K=1,MF 


K> 


CALL LINEAR (TARGET »XsNXoFloF2eJls 


TF {NGCON) 8,598 


RETURN 


CONTINUE” 
WRITE [6,12) 


vou 


FORMAT (1655) 
FORMAT (2612.0) 


END 


UBROUTINE [?) 
COMMON /ARLE/ AX(21) 


‘5 AX (KD =P(J1 19F 140 (J299F2 
a 
7 


__ COMMON /CQUNT/ Lol 
“COMMON /CPDATA/ TGFHI40) 
COMMON /OELTAS/ PEON ADT tgU es OT2 OTS 


“ CoMMnn /EROS/ WI21 960549P121960)_ 
COMMON SFANG/ “F1994)061994) 


uP HA 


{ 


COMMON /FLIGNR/ WEIGHT» PTHROT »PANIC ; 


COMMON /FUBAR/ Fl» F2oF3eF49FS 


u 


3 4 


Tok , ] ° 


COMMON -/LIMITS/ VMIN 


COMMON /NERD/ MF oNF NT eMUFFeLIMIT »NASTY 


“—"“ COMMON /NITWIT/ CLOWN, VULGAR 


FORMAT (/20X%,43H ENLET STATIC PRESSURE DISTRIBUTION FACTORS/) 


FORMAT (/ 16%) BHCOMPUTED » 5X + 4HR/RWy6Xy LLNPRES. FACT. Av 


~""" COMMON /NAVIER/ DTOXsDTDX2 sOTDX4,QTOXB, DTDY » OTOY2,DTDY4, DTDY8 


COMMON /SPOR/ 5 FECD SO COy FUE LEO ST 1S01¢SIP1S01 2AREAIEO} 

—"CORHON 7SPY7 _KCLASS+K 

COMMON /STAG/ AA(B p21) oCOU3 921) sCV43¢21) SHTMEZ1 I ¢GAMZ(21)9RGASLZ1) BN 20_ 

"Fe PZUZL Vo TZ(2L) pHZE2L) sRHOZE2ZL) 

COMMON /STOKES/ A(602¢B{60)9H{60) _ 
COMMON /STUPID/ FOOL{21»60) 

COMMON /SUPER/ R121 .60) 

COMMON 7THERM(/ RHFJUT) 

___ COMMON /TYME/ T,FLIT 

~~ COMMON /WORK/ XTRAI99) 

COMMON /SKALE/ SIMPLE(4) 


COMMON /WALL/ XWALLI100) 


MDN 


x A 


__/PRNDTL/ 


re 
_PHOUND(60) »PMAXBy NANKER ,NLAST 
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COMMON /FRAN/ AQ(60) gAT (60) BD( 6016 BECQOT BN” we" 


BN 12 


BN al- 
BN 22 
BN 23 
AN 246 
BN 25 
BN 26 
BN 27 
SN 28 


“BN 29 


AN 30 
pn” 3t— 
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——SURFON 7NOEX7 _INDEXTS) «iz Ss 
COMMON /FLEX/ NFLX BN. 
REWIND 9 BN 
WRITE €9) KITCEsLABEL pl Ll yp TGFHyDXs OY ,0TsDY2,0T 22074 pHAeHBeWyP eh eG BN 
1 WEIGHT sPTHROTs PANIC, F1 s£2¢F3sF4—F5,WMP, HMM, WNP, UNM, NHN, DTDX, DTOX2 BN 
2 sMTOX4 sDTOXS »NTDY »OTOY2 sDTDY4 »DTDY8, MF pNF »NTeMUFF LIMIT »NASTY»+CLOW AN 
BN, VULGAR: SpSQe SOP eSie SIP yAREAsKCLASS, KGROUP, AA, CPyCV,WIM, GAME, RGAS BN 


39 


ae 4 oPZeTZ pH2 pRHDZ pAe A eHe FOOL 9R pAHF Je TeFLETeXTRASPSYAyNPSIA SIMPLE» XWA AN AD a 
SLL eVMINeGAXeNASTIEs IOLOT eS FPRAT »PROUND, NANKER sp INDEX,NFLX2AD, AL» 80281 BN 41 
ENON FILE 9 BN 42 
REWIND 9 BN 43 
WRITE eis 12) AN 44 
RETURN BN 45 
ENTRY RESTOR. < eds: BN 46 
"REWIND 9 7 - : BN 47 


READ (9) KITLEsLASEL ob phy TGFH LOX pDY DT yDY¥2,0T2eDTSeHAHBeWePeFeGe BN 4B __ 
IWETGHT e PTHROT» PANIC ¢ Fl pF2 9 F359 F4_F5_ WMP Pp WMMP WNP» WNMyWMNSOTOXeDOTOX2, BN 49 
setae sh er eoase ea eh aoa Pa ey ake AN 50 

sVULG 
___ BZ, TZ yH2 yRHOZ yA yBaHy TFOOL SR RHE Ss TSFLIT XTRAVPSIA, VNPSI Ap SIMPLE, XHAL BN 52. 


Sle VAIN, AXSNASTIEs IDIOT sFPRAT »PROUNDs NANKER, INDEXeNELX, AQP Ale BOe8E BN 53 
REWIND 9 BN 54 
~—— WRITE (691359777 OT is BN 55 
RETURN AN 56 
ENTRY FREEP NO 
IF (FPRAT) 2yly2_ : BN 58 
i" RETURN ~~ ee tab fe Pa See oN OS oe BN 59 
eee i Stat eS. Enea het 5 oo . BN 60 __ 
5 NEWP=NANKER oak y ae eo . BN 61° 
ONE=1,0 . BN 62 
T , sR er Peon NPSL ERURTAS MUR: uc’ oe eee 
une _ WRITE (6s12) (KeSOUK) »SOP(K) K21 NF) p BN 64 
“CALL HEAD6 ; OSES ogi erg ay Tae fae woos VAN! C65) 
___... WRITE (699) . ; BN 66 
“~ Pt 3 KeNEWP,NF 7 Tene ee meee" BN 67 
RHOZWIMF Kel) /RIMF SK) + BN 68 
J=wW oKe2) ake 8B 9 
V=WIMF Ky 3)/WIMF Kol) BN 70 
“————" PXEP EMF SK) ae 7 wo BN 72” 
CALL FREAK (PXeRHMsU eV eM 9K ¢PD e FD yDEGs Ty XMeVEL GAM) | BN 72 
“" BETA=(XM+0NE)*(XM-DNE) ~ Ter eemne "BN O73 
BETA=ABSISETA) BN 74 


TBE RST EB ET ia 
OP = PX — PADUNDIK) 


——"—"" PGNUSDP#BETA/IRHOFVELSVEL YT TT ae "7" BN TT 
SOP(K)=SOP 1K) +NGNY BN 76 

“——""" WRITE T6210) PXsRHDyVELeXMeBETA,DP,DGNUyK =~ 0 OT TO BN OT9 
3 CONTINUE BN 80 

EWP )= , + 

SP24=SOP (NEP) AN 82 
“~~ SPLOW=0.5%SDP (NEWP—19%0,5*SOP{NEWP4+1) “OU aE ~ BN 83 
SPHIG=0 .14SOPINEWP—1140.9¢SOP(NEWP +1) BN 84 

ToT" FEST=(SP24~S PLOW) *( SPLOW—SPHIG) AN && 
IF (TEST) 5594 BN 86 

J 
60 1n 7 BN BB 
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= - H s - 
____IF (TEST) TeTe6 7 BN 90 
~é SOPINEWPI=SPHIG Nae Ee, oe ee SIM, BOR. 
7 _CONTINUE AN 92 - 
“TT WRITE (6922) (K pSO1K) SOP IK) SREL RES ast BN 9377 
OINGLE=NX40.5 BN 94 
= 04 .k=Nc0> oN °° <<. #« = = ee Ne eS 
_ _._ SO1K£S01(K-1)+DINGLES(SOP(K—1)¢SOPEK)D A BN 96 
8” CONTINNE : reece BN vi 
_ CALL HOAX ee es ettin lie te Oh Fe oe est haha Ae TAN 8 
RETURN BN 99 
ORMA 
_ DL 1Ks N= PRES? 8X, eD-PHas/ ) ae AN 102 
io FORMAT CLONGFISe2sELS eS oF 15e29F 1S 049 F 15059 Fl Sc2eF 15059 18) BN 103 
LL _ | FORMAT (20% ¢15e5%52F15.5) _ BN 104 _ 
12 FORMAT (*2*%,20Xe*STORED ON NINE® /) BN 105 
13 FORMAT (*°1%,20X%~e*RESTORED FROM NINE? /) BN 106 
wn ENDOCO™O™OCO™OOCOO ee A LO 
_ ____ SUARNUTINE STREAM . : so (tl 
COMMON /EROS/‘'W12) 46055) ; 60 «2 
COMMON /NERD/ MF,NF ENT ao 3 
“" ""—~ COMMON /STUPID/ F(21¢60) ~ Poze bee sense eee ae BO 4 
DO 3 NX=1.NF Bo.) 5 
1=0. 
on i K=2 MF ; an 67 
“£7 FUR NX DEF IK=1 NX 60 .59(WIK=L >NXe2)OWEKQNXV2))0 7 7 OT po 
O00 2 K=1LeMF ; | ee 
2 7  FUKeNXDOE CK NXIZFCMFONKD . : Rete: yt BO 10 
3 CONTINUE ao 11 
— oo = ENO . . . — we em os = == esos et eee ee ee ee eee BO 13-_ 
SUBROUTINE TRICKY .e oP 1 
= COMMON /EROS/ Wi210600%)oP129060) eg ap 2. 
~~ COMMNN /NDEX/ INDEX(9) BP 3 
COMMON /COLINT/ ashe Bp 4 
MMON - #/NER fy , 
2 COMMON /STAG/ AAs 21) C13921) .CV139 21) 9WTMI21 14GANZCZLD RGASLZI Ds ep 6 
“UPLCALD oe TZC[L) gHZIZ1) eRHOZI21) ap” 67 
_ DIMENSION X(0999 VIG? ee : a, CT a 
"TF (L) 2ehe2 ep 69 
1 WRITE (1456) TNDEX AP_310 
TN 
nn 3 Kells? ; BP 12— 
Ve a= JSINNEX(K) oe Aap 13 
_ OKT SP OME 991/PZ (MFI - . ee _ . BP 4 
YCKI=SP(LJI/PZILD . BP 15 7 
3 CONTINUE BP 16 
(1494) al 
WRITE (2485) YO an AP 18 
7" RETURN 7s ‘ BP 19 
c 6P 20 
“a O BORMAT (1Xe9F1204518) . a? | 
5 FURMAT (7X.9F 1204) BP 22 
oY] ° 
END RP 24e 
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____COMMON_/STAG/. "ALB p21) gCPU3 p21) 4CV E32 21) gM TALZL) 9G AMZ(21L),RGAS( 21)» BO 2 


~FOZVCSteTZIZI) ; : 80.3 
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